ALICE 90 : TOUT RMJX ! 



VIVE LA FRANCE 
ET LES JOUEURS 
D'ACCORDEON 
ROUGE 

Nous sommes bien embetes. Les 
gens de Matra qui fabnqueni el 
commercialisent la gamme de 
micro-ordinateurs Alice ont deux 
caracleristiques inleressantes: ils 
sont francais et ils son! char- 
mants Deux raisons evidenles 
pour essayer de regarder leurs 
produils avec bienveillance Nous 
sommes bien embetes I'Alice 90 
de Malra est lout faux ' 
Ca ressemble a peine a un ordma- 
teur, 



Spectrum et le M05 ' Les japo- 
nais ne semblaient pas dangereux 
et I'Alice 90 avait toutes les quali- 
tes du monde pour 2 500 francs I 
C ri.Tt en Octobre. il v a quatte 
mois ! 

£1 les One a 1500 francs 7 Les 
Exelvision et les Thomson plus 
performanis ? Les Commodore a 
2000 francs 7 Les Atari 800 XL 
brades ? Les MSX qui baissenl ? 
Tous plus attirants par leur rap- 
port qualile'prix ! 
Tout faux l 

PAS BEAU, 
TRES CHER 



ca n a p; 
ifeur et 



MATRA HACHETTE 
TANDY 

Qui a bien pu pousser Jean-Luc 
Lagardere. dirigeant de Matra. a 
signer un accord avec Tandy et 
Hachette pour se lancer sur le 
marchfi encombre de la micro ? 
Malra a pourtant d'autres activi- 
ty lucratives ' 

L'Alice rouge, fille Oe ces accords 
et soeur du MC 10 bfanc de 
Tandy, n'ayanl pas remue les 
foules. qu'es!-ce qui a bien pu le 
rj6usser erisuiie a fatre cavalier 
seul el a sortir celte nouvelle 

?amme ? 
ourquoi ne pas avoir continue 
avec Tandy ? Pourquoi concevoir 
une machine a 80 % Irancaise et 
a 80 % mauvaise comme I'Alice 
90 ? Un Tarjdy rouge, serail-il 
TRS 80 et 10,0 % amfiricain. au- 
rait sans probleme tail meiileuie 
figure que cet ersatz d'ordina- 
teur ! 

Espere-t-on que le prix relative- 
ment faible de I Alice 32 {environ 
1100 francs) lera vendre I'Alice 
90 a 2.500 francs ? Croil-on que 
les utilisaleurs debourseront cette 
somme sans"s informer, satis se 
rendre compte des possibililes de 
la machine, sans conslaler la ca- 
rence et la nulhte des logiciels 
disponibies ? 

L'explication vien! peut-etre des 
declarations faites a la presse en 
Octobre dernier Matra estimait 
alors que les seuls concurrents 
seneux de I'Alice 90 elaient le 



quelque 



Un micro-ordinateur 
chose de magique 
lachete le fait generalement pour 
vivre avec son temps et pour faire 
entrer chez lui un peu du genie de 
la technologic moderne 
Plus le micro-ordmaleur ressem- 
ble a un ordmateur professional, 
plus I'impressmn de pouvoir ega- 
ler les ordinateurs de la Nasa ou 
les gros IBM est forte et moti- 
vante. Le look professionnel 
d Apple, base sur ce pnncipe. est 
probablement resoonsabie de son 
succes en France 
Pourquoi Matra a-t-il delibere- 
ment choisi de pai 
dans ut 
rection 



un One un ZX. et vous leretour- 
nez. le dessus dessous: la quaiite 
du plastique employe pour le cul 
de ces machines est la mrjme que 
telle de I'Alice 90 I Grain irregu- 
lier, marques laissees oar le 
moule de fabrication et contours 
hachures. 

Pour 2500 Irancs, le plastique est 
tout faux i 

BRANCHEMENTS 
ROUGES 

La, au moins. Matra n a pas cher- 

che loriginalite a tout prix Les 

erreurs sont les memes que celtes 

de ses emtnenis concurrents des 

cables pattout ! 

Alimentation separee: un boitiei 

et un cable. 

Cassette avec prise Din: el un 

gros cable, un 

Cordon peritel returnable (pour 

I incrustation e! les futures hypo- 

trieliques emissions mteractives 

de la tel«) 

Une prise Dm pour la serie et un 

bus d'extension place aussi inlel- 

ligemment que possible a larriere 

de la machine 

Un interrupted sans voyam lumi- 

neux complete 




diametralement opposee ' 
Quel est le technocrate qui a de- 
cide de positionner I'Alice 90 
comme un iouet ' Pourquoi cette 
forme bizarre et cetle couleur 
rouge pour un ordmateur 'haul de 
gamme' ? Elait-on si tier du 
succes" du petit Alice pour aiiu- 
bler son grand frere de cette robe 
rouge ? 

De plus, la matiere plastique de la 
carrosserie est d une quaiite plus 
que douteuse Vous prenez n im- 
porte quel ordmateur, un Apple. 



le tableau 
II ne manque guere qu'une ali- 
mentation du cordon peritel 
comme sur I Oric pour mooter sur 
le podium 

Tout faux mais pas plus que les 
autres ' 

CLA VIER ROUGE 

Ha ' La e'esi deia beaucoup 
mieux Le clavier nest pas en 
gomme-guimauve et un ordma- 
teur Irangais est evidemment 
mum des lettres acceniuees qui 



font si cruellement defaut a nom- 
bre d ordinateurs elrangers. 
Las, si le clavier est eflectivement 
mecamqje (avec le meme plasti- 
que douleux que la carrosserie). 
point d'accents I Pas le moindre 
accent aigu. pas plus de grave ou 
de trema que de circonllexe et 
pour les minuscules: bernique ' 
Pas de minuscules, sauf en 80 
colonnes. si lisibles sans moni- 
teur I 

Pas de repetition non plus, pour 
aucune louche: tic-tic-tic Alice 
vous muscle les doigts ' 
Pour ajouler un peu de sel a la 
chose qui est bien lade, les tou- 
ches sont particulierement bien 
placfies et it faut vraimenl taper 
avec precaution pour ne pas rater 
la minuscule louche 'enter' 
Quant a la touche qui serl d in- 
lerrupteur entre les caracteres 
graphiques. (inversion video, le 
changement de couleur et le 
mode normal, un conseil vous 
levez les deux bras au-dessus de 
la teste, vous pomtez voire index 
droit vers le plafond en repliant 
tous les autres doigts, vous des- 
cendez ensuile Ires doucemenl 
cet index vers la louche en 
ayan) soin de ne pas souMler trop 
fort vers la louche CTRL ou 
SHIFT Si lout s'esl bien passe, 
vous devez avoir un zero a 
lecran Si est en caraclere 
video inverse ou en couleur re- 
commence: en levant ics eras 
plus haut et arretez de respirer 
Tout faux ! 

16 BITS VERTS 

Un micro-processeur 6803. ver- 
sion amehoree du 6800. agile les 
organes de ce machm C'est un 
huit bits qui permet par la reunion 
de deux registres de realiser theo- 
riquement quelques operations 
sur 16 bits 

Enfin un element positif ' Veri- 
fions tout de suite ses possibililes 
avec notre test tou habiluel 

10A=2 

20FORN = 1 TO 20 

30 A = SQR(A) 

40 NEXT N 

50 FOR N= I TO 20 

60 A- Aa2 



CINOCHE-TELOCHE 

Plein les mirettes, pages 14 et 15. 



DRIIIIIING 

Cette semaine la B.D est de JM, un collaborates de IHebdo 
qui se defoule. En attendant les votres ' Voir page 1 7. 



DEULIGNEURS 

Lea faineants sont a la page 11 



FORMATION A L'ASSEMBLEUR 

Le prof et I'amateur eclalre vous attendant a la page t9 



BIDOUILLE GRENOUILLE 

Ou comment tricher, pirater. modifier, trafiquer. magouilier. 
bidouiller et grenouiller avec les logiciels du monde entier. 
Mais dans la legalite. au moins ? Of course, mon general I 
Lire page 9 



sur huit bits el ce resulta! le 
situe dans les derniers Seuls 
Thomson, Tandy et Heclor son! 
derriere Alice 




Le temps d'execution est bon 
2,10 secondes Le M05 (1. 90s] 
le bal. mais Alice 90 reste dans 
les cinq premiers (voir Hebdogi- 
ciel numero 61) Ce sera le seul 
point positif de cet essai ' 
Une boucle "FOR N= 1 TO 1000 
: PRINT N : NEXT N' s'execute 
en 31 secondes. ce qui est tres 
honorable mats point de rapidite 
de 16 bits ' 

Pour le reste des eniraiiles pas 
de co-processeur pour la musi- 



que ni pour la video Les capaci- 
ty memoire 1 56 Ko (pas 90 !) 
dont 16 Ko de ROM et 40 Ko de 
RAM II reste 31 814 octets de 
memoire vive pour I'utilisateur 
Pas tout faux, mats ca vient 
Regardons-la done celte ROM I 

ROM MAR RON 

Deux langages resident dans la 
ROM un Basic et un editeur-as- 
sembleur 

Encore une drole d idee de 
Malra le basic Microsoft est In- 
complet et pas tres efficace pro- 
bablement a cause de !a place 
occupee par I'editeur-assem- 
bleur el par I incrustation video 
(qui ne fonctionne qu'avec un 
soil, non disponible) 
Un bon basic complet n'aurait-il 
pas ete plus arjapte a celte ma- 
chine grand public ' Qui a be- 
som d un assembleur IMMEOIA- 
TEMENT en achetant une 
machine ' Une cartouche enfi- 
chable auratt tres bien fail I'af- 

Suite page 1 > 



AMSTRAD, LE REVERS 
DU REVERS DE LA MEDAILLE. 



Je suis desole I 



lature. |e 
< el ugri 



el mes seuls pi< 
surenl a la quantite de bave 
visqueuse que je peux dever- 
ser sur ceux qui font quelque 
chose alors que |e ne fais 

J'eiais aux anges quand lin- 
ventaire des logiciels pour 
Amstrad esl paru dans 
IHebdo: peu de logiciels el 
presque tous nuls Apres I ar- 
ticle elogieux sur lordinateur 
lui-meme. |'elais vraimenl 
ravi de cetle lacune d Ams- 
trad. 

Et auiourd'hui, je suis vrai- 
menl desole Je reviens de 
Londres avec des nouvelles 
lernbles: les cenlaines de lo- 
giciels prevus pour Amstrad 
sont la ' Tous les bons Hires, 
tous les must Beach Head, 
Raid Over Moscou. Flight Path 
737, Popeye. Bruce Lee. 
Pole position. Dig Dug, Pac- 
man. Conan Hobbit Zaxxon 



Manic Miner, Jel Sel Willy el 
....... de 180 autre* litres I -■ - 

horreur. a vous degouter 
pour touiours de la medi- 
sance el de la mauvaise foi ! 




Pourvu que le navire qu 
apporte en France fasse nau- 
frage. sinon ils seront la sous 



C'est nouveau, 9a vient de sortir : 

L'actualitede la micro -tnformatique. Lire pages 9,1( 



CONCOURS PERMANENTS 



Votre programme, non content c 
francs par page publiee. peut 
francs chaque mois ou un voyage 
chaque thmestre Reglemen' 



■ous rapporter 1.000 
js rapporter 20.000 
. _.. Californie pour deux 
page interieure. 



c 



DES PROGRAMMES POUR VOTRE ORDINATEUR : AMSTRAD . 
APPLE lie et lie. ATARI 800 XL . CANON X-07 . CASIO FX 702-P. 
COMMODORE 64 ET VIC 20 . EXELVISION EXL 100 . HECTOR HR . 
MSX et compatibles . ORIC 1 ET ATMOS . SINCLAIR ZX 81 ET SPECTRUM. 
TANDY TRS 80 . TEXAS TI-99/4A . THOMSON T07, TO7/70, ET MQ5 



N°72 



Allemagne 3,50 DM - Belgique 70 Frs - Canada 2.50 S - Luxembourg 71 Frs - Suisse 3 Frs - 



10F 



JIMMY QUEST 



Les fant6mes sont a la mode, te MSX aussi. Melangez 
le tout avec une bonne pincee de talent et vous obtien- 
drez un jeu bien seduisant. 

Jacques DAGUIN 

Mode d'emptoi: 

JIMMY dispose de 3 vies. Vous dingez ce sympathique personnage 

a I'aide du joystick ou des (leches de deplacement du curseur, 

parmi des elages intesles de fanidmes el de redoutables leu-lotlets, 

qui accelerent a chaque tableau. 

Voire but est de recuperet des dels eparptllees (25 points) ainsi que 

des diamanls (100 points + 1 vie). Chaque tableau termine vous 

octroie un bonus de 1 000 points. 



MSX 



20 REM ==...-..--.-« 

30 REM DEF. SPRITES 
40 REM ..==..-=.-..= 

30 FORM-1T010 
60 FORN-1T08 
70 READX* 

SO AC . M ' ■- A* . r .: ..>!H ■..-.. "■..«■•■*' I 
90 NEXTN 
200 NEXTM 

210 REM «.-.->==.=.=» 
220 KEY0FF:G0SUB2760 
230 OPEN-GRP: "F0R0UTPUTASN1 
240 COLOR12: PRESET 135, 173) : PR I NT HI 
iTICK 2] KEYBOARD- 
IKEYS 

CHR*(49)TKENST-l:G0TO290 
CHR*<30)THENST-0IG0T0290 
>CHR*(49)0RK*< >CHR«(30) TH 



250 K* 
260 IF 
270 IF 
2S0 IF 
EN2S0 

290 color, 1, 1iscreen2,2,0:v 
:OB-0:V-iO:TE-o:cu«14:SC-0 
300 erc-string*(s,219) 

310 REM = = = = -—*■-•»-- 

320 REM OESSIN ETAGES lar 



-e:Z-3 



REM ........a...... 

aa=i7i:bb-12s:cc-199:; 
ff-29:gg-79:hh-3i: II- 

199:ll-63:ps-2:co-io 
f0rs-1td7iputsprites, 



NE 


0,291- 


(55,33) ,6,BF 


NE 


60,291 


-1235,33) ,6 


NE 


0,61)- 


(50,65) ,6,BI 


NE 


62,61] 


-(183,65) ,6 


NE 


200,61 


1-1235,65) ,i 


NE 


0,931- 


(120,97) ,6,1 



430 LINEIO, 123>-(. 
440 LINE (123, 1251- 
450 LINE(200,125>< 



4BO LINEIO, 1891-1255, 192) ,6, BF 

490 REM - ——--—— ——— 

500 REM DESSIN ECHELLES 

310 REM ——■■■ ■ ■ ■■■■■■— 

520 A*='C03D32BH+8, -32D32U4L8U4RBU 

4L8U4RBU4L8U4R8U4LB' 

330 PSETI40, 156): DRAW- XA*i " I PSET (I 

40,156) IDRAW'XA*! ':PSET1B0,124I idr 

AU'XA*! ' I PSET 140,921 :orawxa*i *:ps 

ET (80,60) :DRAW'XA*i * : PSET ( 170, 60) : 

drawxa*! *: pset < 136, 92): draw km) " 
: pset 140, 28) idraw'xa*! ■:pset( 120,2 
81 :drawxasi ' 
540 pset 1205,281 : drawxa*! ■ : pset ( 2 

20, 124) : DRAWXA*! ' 

530 REM -—........... 

560 REM DESSIN CLEFS 
570 REN mmmmmmmmmmmmmm 
5B0 C»- ■ COSU2R2D2L 1 D6U3R2M- 1 , * 1 Dl R 



590 D*-*C07F4G4H4E4F1D1F2G2E2L6' 
600 E*-'C1R10D1L10D1R10D1L10D1R10D 
1L10D1R1OD1L1OD1R10D1L1OD1R1O' 
610 PSET (12, 511 IDRAWXC*! ':PSET(14 
2,831 IDRAWXC*! ' : PSET ( 121 , 1 13) : DRA 
U-XC*}': PSET (182, 147) :draw'xds; 'IP 
SET (243, IV) IDRAU'XCtl •! PSET ( 12, 147 
I IDRAWXC*! ' I PSET (12, US) I DRAW'XC* 

620 PSET (12,831 : DRAW'XC*! "IPSETI12 
,19) :DRAW'XCCi ■: PSET ( 106, 1131 : DRAW 
"XC*t ■: PSET I 125, 831 : DRAW'XC*! * IPSE 
T(62„31l :DRAWXC*I ■: PSET (235,51) :D 

rawxc*! ": pset (243, 83) : draw'xc*! ": 
pset 1245, 115) : draw'xc*! ■ 
630 pset (92, 191 | drawxc*! " :rset i 13 
5,191 :drawxc»; ■ :pset i 133, si i : draw 
-xc*j ":pset(163, 1471 :drawxc*i -:ps 

ET(246, 179) i DRAWXC*! ": PSET (123, 17 

9) idrawxc*! ' 

640 G0T01010 



660 

670 

680 


REN 


DESS 


- 


ETAGE5 2*n* Tables 


P0R5 


1T07 


PUTSFRITES, 


liNEXT 


C 


L5 














690 


FORT 






HE XT 






700 


aa-ioi:bb 


29 


:CC-U9:DD-3i:EE 


6 


iiff-6i:gg-69 


HI 


-63:11-17 


: jj-157: 


KK- 


B9 ILL- 139 


PS 


-3:C0-13 






710 


LINE 


0,29 


-i 


100,33) ,6 


BF 




720 


LINE 


120,29) 


-(235,33) 






730 


LINE 


10,6 




(60,63) ,6 


BF 




740 


LIME 


70,6 


1- 


(90,65) ,6 


BF 




730 


LINE 


100,61 ) 


-1180,63) 


6.BF 




760 


LINE 


193,61) 


-(235,63) 


6|BF 





810 . 

B20 
B30 ' 

840 
B50 




,6,BF 



NE( 100,93 

NEI160, 931-1253, 97) | 
NE(0, 123) -(45, 129) ,6,BF 
NE 160, 123) - (100, 1291 ,6, BF 
NEI120, 1231-1190, 129) ,6, BF 
NEI200, 125) -(255, 129) ,6, BF 
NE (20, 137) -(100, 1611 ,6, BF 
NE(120j 1371-1170, 161) ,6, BF 
NE1190, 1371-1233, 161) ,6, BF 
NE(0, 1891-1253, 192) ,6, BF 



870 I 

880 Lit 

890 REN ' 

900 REM DESSIN ECHELLES 

910 REN ----«-«•—.... 

920 PSET (43, 1361 : DRAWXA*! -:PSET(2 

10, 136) IDRAW'XA*! ■: PSET (23, 124) : DR 

AU'XA* I ": PSET (65, 1241 IDRAW'XA*! "IP 

SET (123, 124) IDRAW'XA*! 'IPSETI 10,92 

) : DRAWXA*! -:PSET( 173,92) :DRAW'XA* 

i ■ :PSET (230, 92) : DRAWXA*; ": PSET 1 25 

,601 : DRAWXA*; * 

930 PSET(46,60) : DRAWXA*; " ! PSET ( 1 1 

0,60) I DRAWXA* I ': PSET (215, 60) IDRAU 

•XA«I ■: PSET (80, 28) : DRAWXA*! ' I PSET 

(163,28) : DRAW 'XA»; ■; PSET (140, 156) J 

DRAWXA* I ' 

940 REM --.-----••■-»- 

920 REM DESSIN CLEFS 

960 REM -«-----«— --- 

970 PSET (104, 1151 IDRAWXC* I ' IPSETI 

104, 147) : DRAW'XC* | •! PSET ( 165, 1471 ; 

DRAU-XCII ■: PSET (243, 147) IDRAWXC*! 

•: PSET (84, 83 1 IDRAWXC*! »l PSET (1 43, 

S3) I DRAW'XC* I ": PSET (161, 83) 1DRAWX 

C*l" IPSETI 233, 31 1 : DRAW'XC*! ':PSETI 

12,19) : DRAW'XC*! ': PSET (247, 19) : DRA 

WXD*!' 

9B0 PSET (201, 113) : DRAW'XC*! ' :PSET( 

243,l79i;DRA.irsGB|';P§ETll94j 17?! J 

DRAW'XC*! ': PSET (122, 311: DRAW'XC* I ■ 
: PSET (12, 31 >: DRAW'XC*! ': PSET (43, 11 
3) : DRAW'XC* I " :PSET(143, 1131 IDRAW'X 

990 PSET! 191,311 :DRAWXC*I ' :P5ET ( 1 

04, i9i :draw'xc*i ' 

REH -««-«««««-««« 

REM COORDONNEES DE DEPART 
REM ™--™--— ---.-.-■.■ 

COLOR 13: PSET (10,21 IPRINTW1, 'S 
: PSET (100, 2) I PR INT* 1, 'HSCORE' 

1198,2) :PRINTtl,-VIES" 
COL 0R10: PSET (43,21 :PRINT(tl,SC 

1142,2) : PR INTHl.HSI PRESET (227 
•RINTNl.Z 

x-13:y-172:a-ibo: 8-172: C-io:d 



1000 
1010 
1020 

1030 
CORE 



'i4o:E-6o:F-ioe:G-loo:t 



■76:: 



130: J 



-44: K-30: L-12: M-30: N-172 
1060 REM —-———-————- 

1070 REM AFFICHAGE SPRITES 
1080 REM «-«-««««« — 

1090 SPRITE*(1)-AC(1>+A*(21 

1100 SPRITE*(Z)-A*(3)+A*(4) 

1110 SPRITE*(3)-A*(31+A*(6) 

1120 SPRITE»(4)-A*(7)+A*[B) 

1130 SPRITE*(3I-A*(9)*A*(I0> 

1140 PUTSPRITE1, (X,Y> ,CU,4 

1150 PUTSPRITE2, (A,B) ,CO,PS 

1160 PUTSPRITE3, (C.D1 ,CO,PS 

1170 PUTSPRITE4, (E,F> ,CO,PS 

1180 PUTSPRITE3, (G,H) ,CO,PS 

1190 PUTSPRITE6, (I.J1 ,CO,PS 

1200 PUTSPRITE7, (K,L) ,CO,PS 

1210 REM - — .-— — — — 

1220 REM VITESSE F/F 

1230 REM - — -—-»»■»■ 

1240 A-A+IVI+11 ! IFA>-233THENA-0 

1Z30 C-C-IVI*!) ! IFC<-0TH£NC-233 

1Z60 E-E+IVI-2) : IFE>-23STHENE-0 

1270 G-6-(l/I*21 : IFG<-0THENG-255 

1Z80 I-I+VI: IF I 1-25STHEN1-0 

1290 K-K-(VI*1) : IFK<-0THENk-255 

1300 M-M-Vl: IFM<-0THENM-233 

1310 REM «»«..- — — — «-.= 

1320 REM DEPLACEMENT JIMMY 

1330 REM ■<•--• — -»» — »«■ 

1340 S-STICK-(ST1 

1350 IFX<-233ANDS-30RX<-235ANDS-20 

RX<-23SANDS"4THENX-X*V!PUTSPRITE1, 

(X,YI ,CU, 1 

1360 IFX>-15ANDS-70RX>-13ANDS-60RX 

>-15ANDS=8THENX=X-V;PUTSPHITEl, (X, 

V) ,CU,3 

1370 REM -»---.-■-.--- 

13B0 REM VERIF.ETAGE5 

1390 REM - — - — -«-»■■— 

1400 IFPOINTIX, Y- 121 -30RP01NT(X*2. 

Y-12)-30RP0INTIX«4,Y-121-30RP0INTI 

X*6,Y-121-3TKEN1430 

14 10 IFPOINTIX, Y*24)«30RPO INT (X*Z, 

Y*24)-30RPOINTIX*4,Y*24)-30RPOINT( 

X*6,Y«24I-3THEN1430 



i G0T01460 

i ifs-iandy>13Theny-y-32:putspr 

, IX, Y) ,CU,4:PLAY"05L64G04EF' 
I G0T01470 

I IFS-3ANDY<172THENY-Y*3Z:PUTSP 
:i, 1X.YI ,CU,4:PLAY'04L64FE03G' 



490 IFPO 



'■■ ■ 



.Y+17I06ANDP01NTI 
*17)< >7THENI500ELSE1350 
SPR I TEOFF : FORM- 1 T0Z50 : SOUNDS, 



SOUNDO.M 

3Z0 PUTSPRITE1, (X,Y1 

330 Y«Y*l: IFY-192THEN1730 

540 NEXTM 

550 REM -------«------ 

560 REM VERIF.OBJETS 

370 REM -»»-»—— 

3B0 IFPOINT IX* 1 1 , Y*l 1 I -70RP0INT (X 
i,Y*ll)-7THENSC-SC*100:Z-Z+l:GOSU 
820: PSET (X-9,Y*5i :DRAW'XE*t 'IPSE 
X+8, Y+5) :DRAW'XE*i ■ : PLAY"L6404AB 
03CD02EF" 

590 [F-P0INT(a*II,U'I^5UHI j U1N1|V 

, Y*7)-3THENSC-SC*23:G0SUB1B30:PSE 

x-9,y*3i :draw-xes; ":pset(x*s, V*B 

DRAWXE*) •] OB-OB* 1 : PLAY" W10L6403 
G04FE005CB' 

600 IF0B-20THENPLAY-V1004L10ABCDE 
GRGFEDCBC*:SC-SC+1000:FORN-OTO13O 
II NEXT: SPRI TEOFF : OB-OBt 1 : G0T06B0 
610 IF0B-39THENPLAVU1004L10ABCDE 
GRGFEDCBC*:SC-SC*1000:UI-UI+l:FOR 

N-OTO 150O: NEXT :OB-0: SPRI TEOFF: GOTO 

320 
620 REN — — .————-——— 
630 REN PONT PRESENT/ ABSENT 
640 REN — «-«™««-«™. 
650 IFTE-20THENL INE I AA , BB ) - ( CC , DD 
,6,B:LINE(EE,FF)-(GG,HH1 ,6, B: LINE 
II, JJ)-(KK,LL1 ,6,B:PLAY'03L10AL10 

BL10C 

660 ifte-30thenline(aa,bbi-(cc,dd 
,i,b:line(ee,ffi-(GG,hh) ,i,b:line 

II,JJ)-(KK,LL1 , l.BITE-O^LAY-OSLl 
0CL10BL10A- 
670 REM —•»-■•— — 

680 REH JIMMY PRIS 
690 REM -—.—««—— 
700 DNSPRITEG0SUB1730:SPRITEDN 



710 ' 



-TE*: 



740 PLAY-V10L10O4FAGCFG03CLF2' 

730 Z-Z-l:GOSUB1820 

760 IFZ-OTHENG0TO1770ELSE179O 

770 IF60HBTHENHS-SC 

7BO COLOR1S: PRESET (99, 731 : PRINT HI 

■GANE OVER -: COLOR l: PSET 1 147, 2) :PR 

NTHl, ER«: COLOR 10: PSET ( 142,21 :PRIN 

H 1 , HS : FORT-OTO 1 3000: NEXT : G0SUB276 

:G0T0240 

790 F0RT»OTO20OO:NEXTT 

800 GOTO 1030 

810 REM ---» — «—« 

820 REM AFF. SCORE VIE 

830 REM —« — -—— 

840 COLORl: PSET (230,21 : PR I NT Ml ,ER 

<:c0l0r10: preset (227, 21 iprinthl.z 
830 colorl: pset (50, 2) :printn1,er* 
C0L0R10:PSETI45,21 :printhi,sc 

860 RETURN 



1B70 




1880 


REM DATAS 


1890 




19O0 


REM 


1910 


DATAOOOOOOOO 


1920 


DATAOOOOOOOO 


1930 


DATAOOOOOOOO 


1940 


DATA000O1100 


1950 


DATA00001100 


1960 


DATAOOOOOOOO 


1970 


DATA00011000 


1980 


DATA00111000 


1990 


DATA01011100 


2000 


DATA00111010 


2010 


DATA00011000 



2020 DATA01011100 
2030 DATA10110100 
2040 DATA00001000 
205O DATAOOOIOOOO 
2060 DATAO0OI1OOO 
2070 REM 

2080 DATAOOOOOOOO 
2090 DATAOOOOOOOO 
2100 DATA00000010 
2110 DATA00100100 
2120 DATAOOOIOOOO 
2130 DATA00010010 
2140 DATA01001100 
2150 DATA00101000 
2160 DATA01111001 
2170 DATA00111010 
2180 DATA101 11 1 10 
2190 DATA01101100 
2200 DATA01111101 
2210 DATA00110110 
2220 DATA00111100 
2230 DATAOOO 11000 
2240 REN 

2250 DATAOOOOOOOO 
2260 DATAOOOOOOOO 
2270 DATAOOOOOOOO 
2Z80 DATA001 10000 
ZZ90 DATA001 10000 




JIMHY GAUCHE 




Z300 DATA! 

Z310 DATA0001! 

2320 DATAOOOl: 

2330 DATAOOl: 

2340 DATA0101: 

2350 DATAOOOl: 

2360 DATAOOl; 

2370 DATA00101101 

2380 DATAOOOIOOOO 

2390 DATAOOOOK 

2400 DATAOOOl : 

2410 REN 

2420 DATAOOOOOOOO 

2430 DATAOOOOOOOO 

2440 DATAOOOOOOOO 

2450 DATA00011000 

2460 DATA00011000 

2470 DATAOOOOOOOO 

24B0 DATAOOl 11 100 

2490 DATA01011 

2500 DATA1001 

2510 DATA0101I 

2320 DATAOOOl 1000 

2330 DATA0O1001O0 

2540 DATAO01OO1O0 

2530 DATA01000010 

2360 DATA0100OO10 

2570 DATA 11000011 

2580 REN FANTOME 

2590 DATAOOOOOOOO 

2600 DATAOOOOOOOO 

2610 DATAOOOOOOOO 



000 



oio 



ooo 



ioio 



2620 


DATA10O11O01 


2630 


DATA01011O10 


2640 


DATA01100110 


Z650 


DATA01111110 


MM 


DATA01111110 


2670 


DATAOOl 11 100 


2680 


DATAOOl 11 100 


2690 


DATAO011110O 


2700 


DATAOOOl lOOO 


2710 


DATAOOOl 1O00 


2720 


DATAOOOOIOOO 


2730 


DATA0OOO10O0 


2740 
2750 
2760 
2770 
2780 


DATAOOOIOOOO 


REM PRESENTATION 


COLOR 7,1,1: SCREEN! 


2790 


PLAY'V10L6404ABCDEFG8CDEFGCDE 


FGDEF' 


280O 


LINE (27,22) -(2ZB, 168) , , H:LIN 


E<28 


231 -(227, 1 67 1, 7, B; LINE (29, 24) 


-1226,1661 ,7,B:LtNE(30 > 23)-(223,16 


3) f 7 


B 


2810 


LINE(32,27)-(223,163) .S.BILIN 


E(33 


28 )- (222, 162), 3, B: LINE (34, 29) 


- (22 


, 161 ), 3, B: LINE (213, 1331 -(40, 3 




■ 




COLOR &:PSET(31,36> :LINE-<203 






NE- (72,86) :LINE- (70,911 !LINE- (34,9 


1) :LINE-(3S,B8>:LINE-(66,88) :line- 


(68,eBl:LINE-169,BS):LINE-(73,60) : 


LINE 


(30,60) : LINE- (31,37) 


2830 


PLAY-DCBACBABAGREFADCCC03EDCR 


04CCCCC" 



i PSET 



(81,64) :LINE-(B1,64) 1 



E- (76,92) ;LINE- (80,92) : LINE- (85,64 
>: LINE- (82,64) : PSET (90, 64) ;LINE-(8 
3,92) ! LINE -(90, 92): LINE- (93, 72) 
NE-( 96, 82): LINE -(102,72) : PSET (9 
4) :LINE- (94,64) : LINE- (97,73) : LINE 
(102,64) 

2850 PSET (103.72) : L INE- < 99, 92) ; 
NE- (104,921 : LINE- (108, 64): LINE- 
3,64) IPSET I 1 13,64) :LINE-( 109,92 
INE- I 114,92) :PSET(114,64) :LINE- 
9,64) 

2860 PSET (114,92) : LINE- ( 1 17, 72 
INE-(1Z1,82) :LINE 
25,92):LINE-(131,' 
:LINE-(1Z6,64) :lii 
(119,641 

2870 PSET (138,64 
137,78) :LINE 



22,73) : 



47,8 



(144,92) : 



1 38 , 64 ) 
I) ILINE- 

:-(142, 



:LINE-(13B,97I 

2B80 PSET (137,971:1 

NE-(32,100) :LINE-(1 

44,99) :LINE-( 146,97 

: LINE- ( 149, B6> : PSET I 149,83) :LINE- 

130, BO) : LINE- ( 132,64) :PSET 

: LINE- (_148, 64) : LINE- (131, 641 

2890 PSET (146,77) :LINE-(142, 77 



(143,64) 



NE t 



39, 64): PSET (52, 1031 :LINE-(132, 103 
: PSET (52, 106) : LINE- (32, 108) :LINE- 
129, 108) : LINE- (128, 108) 
2900 CIRCLE (67, 126) , 12:CIRCLE ( 
,126),8:PSET (69, 12BI ILINE -(78, 
9):LINE -I73,139>:LINE -(66,128) 
INE -(68,128) IPSET (83, 1 14 ) : LINE 
(81,134) :LINE -(82,137) ILINE -(90 
137): LINE -(92,136) ILINE -(93,133 
2910 PSET (69,128) ILINE -(78,1391: 
LINE -(73, 19): LINE - (66, 128) : LINE 

-(68, 128) 
29Z0 PSET (B3,114) ILINE 
LINE -(82,137) ILINE - (90, 137) : LINE 

-(92, 136) ILINE -(93,133) 
2930 LINE - (97,114) ILINE -(93,114 
ILINE -(90, 133) ILINE - (83, 133) ! LH 
E -(B9, 1141 ILINE -(86,1141 
2940 PSET (101,114) ILINE -(96,137 



JACK 



EXEIMISION-EXL 100' 




Jouer au Jack Pot sans depenser d'argent, le pied! 

F. CRISTOFINI 

1 i XXX* JRCK POT mmmmmmmmm 

2 ! MM 1983' PAR CRISTOFINI. F MM 

3 ! **X***X****XXXXXXXXXXX*XXXXX***X 

4 CLS "WB8" 

5 CALL COLORC'OYB'') 

6 LOCATE (6,6)<INPUT "JOUEURITON NOM ' 

7 CLS 

8 ! XXXX DEFINITION **** 

9 CALL CHAR(92,' 

10 CALL CHAR(91,' 

11 CflLL CH8R(33,' 

12 CflLL CHAR(28,' 

13 CflLL CHAR', 37,' 

14 CflLL CHRR( 15, ' 

15 CflLL CHflRO*.''i368DF&3F&00000U00000" 

ie crll chrr( 17, "F0Eec&0e0ee0e800e0e0" 

17 CRLL CHAR(18,"0000000030383FIF073F" 

18 CRLL CKAR(19,"0008000080C0CB88C0F0" 
IS CflLL CHAR(20,"77674F3F6F3F1F070000" 
28 CRLL CHAR(21,"F8F8F8FBFeF0E0C0000e" 

21 CflLL CHAR(1B,"080800000?1F30767676" 

22 CALL CHRRt 11- , '00000000C0F038F8FCFC M 

25 LOCATE (10.4MNPUT "VOULEZ VOUS LES REGLES DU JEU ";J» 

26 IF J»<>"0"THEN 27 ELSE GOSUB 106 

27 CLS 

28 CRLL COLORC'BGBHLF") 

29 LOCATE ( 1, 12)'PRINT "JJAACCKK. .PPOOTT" 

30 LOCATE (2,12)<PRINT "JJRRCCKK. .PPOOTT" 

31 GOSUB 174 

32 S-0 L»88 

33 L-L-S'C-0'CI"0^P"0;D*0'LOCATE (6.12)<PRINT "J0UEUR< ")N»' IF L<-0 THEN ! 

34 CRLL C0L0RC8RB" ) 

33 LCCRTE (21,3)PRINT "WSE "j0, "CREDITS "iL 

36 LOCATE (4,3)>INPUT "VOTRE MISE ";S 

37 IF S<-8 OR S>100 THEN 36 

38 LOCATE (2I,3)'PRINT "MISE ")S, "CREDITS ";L-S 

39 R-0; GOSUB 143 

40 IMM CHOIX ALEATOIRE DES C0MBINAIS0N8**** 

41 RANDOMIZE 

42 C1-INT(RND*5)>R-0IF C1O0 THEN 41 

43 ON CI GOSUB 63,68,73,78 

44 R-4< GOSUB 143 

45 RANDOMIZE 

46 C2-INKRND*5)>R-4<IF C2<«0 THEN 45 

47 ON C2 GOSUB 63-66,73,78 

48 R-8'GOSUB 143<RANDOMIZE 

49 C3"INTCRND*3)<R«8<IF C3<-0 THEN 48 
38 ON C3 GOSUB 63.68,73,78 

31 R-12-GOSUB 143>RANDQMIZE 

32 C4-INTCRND*3):R»12>IF C4<=0 THEN 31 
53 ON C4 GOSUB 63,68,73,78 

34 F-C+CI+P+D 

33 IF (F>0 AND F<6)DR CF>9 AND F<15)THEN G0SU8 83 ELSE 98 

36 PAUSE l'LOCRTE (10,9)' PRINT " ' ".LOCATE (11,9) 

37 PRINT " "■IF L<-0 THEN 38 ELSE 33 

38 LOCATE (17,1)' PRINT " TERM I NE, VOUS N'AVEZ PLUS DE CREDITS" 

39 L«ATE (ie.lWNPUT "VOOEET VOOS REJSOEftSQf 
68 IF W-"0"THEN RUN ELSE 61 

61 CLS END 

62 !MM CERISE ***» 

63 CRLL COLORCIUB")' LOCATE ( 1B,9+R):PRINT CHRt<92 );CHR«(91 ) 

64 CflLL COLORC'IRB")' LOCATE ( 11,9+RJPRINT CHR»(93 );CHR8( 28) 

65 C-l 

66 RETURN 

67 'MM PONME XXX* 

68 CflLL COLOR("lYB"):LOCATE ( IB, 9+R) PRINT CHR»( 3?);CHR»t 15) 

69 LOCATE ( 11 ,9+R)<PRINT CHR»( 16);CHR»( 17) 

70 CI"2 

71 RETURN 

72 IMM BAHPNE MM 

73 CRLL COLORCIUB" ); LOCATE U0,9+R)iPRINT CHR8( 18);CHR»< 19) 

74 CALL COLORC'IGB"): LOCATE ( 1 1,9+R)'PRINT CHR*28)jCHR»( 21 ) 

75 P-3 

76 RETURN 

77 I MM DOLLAR MM 

78 CALL C0L0R("1WB")<L0CATE ( 10, 9+R) 'PRINT CHR»( 10);CHR8( 11 ) 

79 LOCATE ( 11 ,9+R)'PRINT CHR»( 13))CHR«( 14) 
88 D-18 

01 RETURN 

82 ■ «*« SOUS PROGRAMME GAGNHNT *** 

83 A»«"0E683FC7031EF040043CE0ei0F78C00216E040042C60l310F55840031RD08006FE" 

84 CflLL 3PEECH("L,"8,A») 

85 LOCATE (20, 10)'PRINT " GAGNE" 
66 CALL COLOR<"0bBLF") 

87 LOCATE (4,24)PRINT "GGOOOODD! !" ' PAUSE 5 LOCATE ( 18,24)'PRINT " 

88 CALL COLORC0WBHLF"); LOCATE (10, 9), PRINT "•» M ** M" 

89 LOCATE U1,9)<PRINT "•* M W M" 

90 PRUSE 3 'LOCATE (10,9)'PRINT " 

91 LOCATE (U,9)'PRINT " 

92 CRLL COLORC'BRB") 

93 RRNDOMIZE 

94 S— (S*(INT(RND*12)))iL0CATE ( 18,20)'PRINT "BONUS "i-S 

95 IF S-0 THEN 94 

96 PRUSE 8, LOCATE ( 18.20) PRINT " ".GOTO 56 

97 !M* SOUS PROGRAMME PERDANT XXX 

98 Xl»=' , 077C312DD46D6F70%213EC60072B38C10C66303211F4A0e72D6&4ie2:iE931tEM&637' 

99 X2»="BRD18D6E74A2139DE8443BDRD18E7634fl313CDt->;:<: 339AB1 BC6634ft21 18D6844206A' 
108 X3«="518B5AD4A21AD5A84635flA518D4A54A212y5fte44^34flDlFF■ , 

181 X«-X1»8.X2»4:X3* 

182 CALL SPEECH("L,"&X*) 



+MSX 

Suite de la page 2 



ILINE -(108,137) ILINE -I109,133)!L 
INE -(101,133) ILINE -(102,123) ILIN 
E (106,128) 

2930 LINE -1107,123) ILINE -1102,12 
3>:LINE -I104,11B) :LINE -1110,110) 
2960 P5ET <102,114):LINE -(113,114 
>:LINE I 11?, 11G) ILINE -(111,118) 
2970 PSET (119,114) :LINE-(129, 114) 
2990 PSET (130,113) ILINE -1132,116 
I.'LINE -(132,119) ILINE -(132,120): 
L INE- ( 128, 120 >: LINE- (128, 118): LINE 
-(121,118) ILINE- (119,120) 
3070 PSET (119, 120) ILINE -(118,123 
KLINE -(128,123) 1L1M -(130,128): 



LINE - 



I LINE- (119, 137) I LINE - 



14,120) :l. INE -(114,123): 



edito 



133 LOCATE (20, 10>'PRINT " PERDU" 
184 PAUSE 2: LOCATE ( 20, 10)'PRINT " 

105 GOTO 56 

106 !*»** REGLES DU JEU MM 

107 ! MMMMMMMMMMM* 

108 CLS 

109 LOCATE (2,1 ). PRINT "W J«u tlMUl* le JACK. POT " 

110 LOCATE (3.1) PRINT ">/oici l«s cottbirnisons 
taOMTlttS" 

111 LOCATE (18.17)PRINT "VOUS DISPOSEZ DE" 

112 CALL COLORC'BGBL" ? LOCATE ( 12, 17 VPPINT "8300 
CCRREEDOIITTSS" 

113 CALL C0L0RC1BW") 

114 LOCATE (6,5) PRINT CHR*(92);CHR«(91 );CHR»(32); 
CHR»(92);CHR*(91 >)CHR*(32) 

115 LOCATE (6,11) PRINT CHR(( 92);CHR»C91 \CHR«(32)j 
CHR8(92);CHR»(31) 

116 CALL COLORC'IRW") 

117 LOCATE (7,3)'PRINT CHR»(93)iCHR«(28)iCHR*(32); 
CHR»( 93 ) i CHR*( 28 ) ; CHR«( 32 ) 

118 LOCATE (7,11):PRINT CHR*C93);CHR8(28);CHR8( 32); 
CHR«(93);CHR»(28) 

119 CALL C0L0RC1YB") 

120 LOCATE C9,5)'PRINT CHR»(37)jCHR»( 13);CHR8(32), 
CHR»C 37 ) j CHR*( 15'; CHR»( 32 ) 

121 LOCATE (9,H):PRINT CHR«(37);CHR(( 15);CHRI(32 ); 
CHR*(37);CHR8(15) 

122 LOCATE (10,5)ipRINT CHR*( 16);CHR«( 17);CHRf(32); 
CHR»( 16 ); CHRX 17 ); CHR»( 32 ) 

123 LOCATE ( 10, II SPRINT CHR8( I6);CHR»( 17);CHR«(32); 
CHRi(16)jCHR>(17) 

124 CALL COLORC'IYB") 

125 LOCATE <12,5)^PRINT CHR« 18);CHR»( 13);CHR*(32); 
CHR8( 16 r, CHR«( 19 ); CHR»( 32 ) 

127 CALL COLORC'IGB") 

12B LOCATE (13,3) PRINT CHR*(2B);CHR»( 21 );CHR»(32); 
CHR8( 20 ); CHR»( 21.) ; CHR»( 32 ) 

129 LOCATE ( 13. 11 )'PRINT CHR«(20);CHR8(21 ))CHR8(32>; 
CHR<( 20 ); CHR8( 21 ) 

130 CALL C0LCRC1WB") 

131 LOCATE (15,3')^PRINT CHRVC 1B);CHR»( 11 )^CHR«(32); 
CHR*< 18)jCHR«( 11 );CHR*(32) 

132 LOCATE ( 15. 11 SPRINT CHR«( 10))CHR8( 11 );CHR8(32); 
CHR«(10) J CHRt(ll) 

133 LOCATE (16,3)^PRINT CHR8( 13);CHR»( 14);CHR8( 32); 
CHR»( 13 ); CHR*( 14 )^CHR8( 32 ) 

134 LOCATE ( 16. 11 )>PRINT CHR»( 13)iCHR« 14 >jCHR»(32); 
CHR»(13)jCHR8(14) 

133 CALL COL0R( "0GB" ) 

136 LOCATE (4. IMPRINT 

137 LOCATE (21,1>=PRINT 

138 LOCATE ( 15. 17)'PRINT 

139 LOCATE ( 16, 17) 'PRINT .. 

140 LOCATE (17, 17); PRINT "PLUS VOTRE MISE" 

141 AMKEY«<IF A«<>"J"THEN 1 ELSF RFTIJRN 

142 RETURN 

143 !M* AFFICHflGE DES CARACTERES MS 

144 FOR 1^.83 TO .1 STEP .03 

145 GOSUB 73 

146 CALL COLORC'IWB" ) 

147 LOCATE ( 10,9*R)'PRINT CHR*(92);CHR»( 91 ) 

148 CflLL COLORC'IRB") 

149 LOCATE ( 11, 9+R) PRINT CHRt(93);CHR*(28) 
138 G0SU8 170 

151 PAUSE I 

152 CRLL COLORC'IYB") 

153 LOCATE ( 10,9+R)'PPINT CHR»(37);CHRt( 15) 

154 LOCATE (11,9+R)'PRINT CHR»( 1 6 ) ; CHR«( 1 7 > 

155 GOSUB 178 

156 PAUSE I 

157 CALL COLORC'IWB") 

158 LOCATE ( 10,9+R)>PRINT CHR»( 18);CHR8( 19) 

159 CALL COLORC'IGB") 

160 LOCATE (11, 9+R* PRINT CHR»( 20);CHR»( 21 > 

161 PAUSE I 

162 GOSUB 170 

163 CALL COLORC'IWB") 

164 LOCATE ( 10, 9+R) PRINT CHR8( 10).CHR»( 11 > 

165 LOCATE ( 11 , 9+R) PRINT CHP*' 13/:CHP»( 14) 

166 PAUSE I 

167 NEXT I 

168 RETURN 

169 !M* BRUIT JACK POT *M 

170 O»»"0D7C91B2BAB602FC" 

171 CALL SPEECH("L,"40*> 

172 RETURN 

173 !*** CONTOL'R JACK POT M* 

174 CALL COLORC0MB" ) 

175 FOR 1-8 TO 22'LOCATE (8.-1) PRINT CHRft 29 I LOCATE 
(I3,I)'PRINT CHRt(29) 

176 NEXT I 

177 FOR I-S TO 12'LOCATE (1.7) PRINT CHP«( 19 ^LOCATE 
(I,23VPRINT CNR»<3) 

178 NEXT I 

179 FOR W=9 TO 22 STEP 4 CALL COLORC'IYB") 
130 LOCATE (15, W> PRINT CHR*( 10);CHR»( 11 ); " " 

181 LOCATE (16,W)'PRINT CHRX 13 ■ iCHRfC 14 >; " "NEXT W 

182 RETURN « 



I d'autrts" 
"TAPEZ 'J' POUR JOUER" 
"LORSQUE VOUS GAGNEZ " 
"'.'OUS GAGNEZ LE JACK POT" 



Les piegeurs piegSs ! Certains 
d'entre vous ont pu voir I'emis- 
sion de TF1 . "Pik el Pok et Co- 
legram", il y a quinze jours. 
Une rubnque de quelques mi- 
nutes y a ete consacree a 
Hebdogiciel. Les cameras de 
tele avaient debarque pen de 
temps auparavant dans nos 
somptueux locaux et avaienl 
(ilme dans tous les coins pen- 
dant que nous conlinuions a 
bosser. EMes avaienl ensuite 
passe de nombreuses heures 
a essayer de lilmer voire servi- 
teur en train de parler du ser- 
veur Hebdogiciel car votre ser- 
yiteur, allez savotr pourquoi, 
etail plie en deux par un inex- 
tinguible lou-rire. une phrase 
sur deux ! "C'est pas grave ! 
Nous allons arranger tout cela 
au montage ! ". avail dit la rea- 
lisatrice en arborant un sourire 
bizarre au coin des levres. 
Ouand remission est passee 
sur les antennes, nous nous 
sommes rendus compte que le 
montage avait effectivement ar- 
range pas mal de choses: le 
film sur le journal montrait une 
bande d'echeveles en train de 
taper comme des fous sur des 
ordinateurs au milieu d'un 
inextricable bordel ! Quand a 
I'interview du redacteur en 
chef montrant le prolotype du 
serveur, au lieu de prendre les 
passages ou je m'etais appli- 
que a parler convenablement 
et a prendre mon air le plus 
serieux et le plus "pro", on me 
voit en train de me marrer 
comme une baleine ! 
Les piegeurs pieges ! J'espere 
que vous ne croyez pas une 
seconde que nous sommes ef- 
fectivement comme ca; des ri- 
golos bordeliques ! Non, hein, 
vous n'y croyez pas ? 
Vous avez tori, nous sommes 
VRAIMENT comme ca ! Gniak 
gniak I 



Gerard Ceccaldi 



UNE RUMEUR... 

Selon une rumeur tenace, 
Amstrad aurait I'inlention de 
lancer d'ici peu de temps une 
nouvelle version du CPC 
464, ayant un lecteur de dts- 
quettes integre au lieu du 
lecteur de cassettes. Prix 
presume avec un moniteur 
monochrome; moins de 5000 
francs. 



133) :line 



L INE- ( 113, 127) ! LINE- (120, 128) ILINE 
-(124, 129) I LINE- (123, 132) ILINE- (12 
3, 133) ILINE- (117, 133) ILINE- (116, 13 
2) ILINE-1113,132) 
3300 PSET (119,122) ILINE -1120,119 

3320 PSET (130,108) ILINE -(139,108 
) ILINE -(134,137) ILINE -(139,137) 
3360 LINE -(144,108) ILINE -(131,10 
8)!LINE -(131, 10*) ILINE -(132,106) 
3400 PSET (49,108>ILINE -(49,108)1 



LINE -ISO, 103) ILINE -(31,103) 

3440 PSET (51, 108) ILINE --(50,108) 

3460 COLOR 1 

3470 PSET (32,107) I PSET 171,133) IP 

SET (73,136) IPSET (73,133) 

3320 COLOR 13 

3530 PSET (166,110) ILINE -(165,97) 
ILINE -UA6,86)!LINE -(168,81) 

3370 LINE -(174,80) ILINE -(177,82) 
ILINE -(178,92) ILINE -(176,108) 
3610 PSET (176,109) ILINE -(167,110 

3640 PSET (162, 110) ILINE -(183,83)1 
LINE -(188,83) ILINE -( 194, 84) ILINE 

-(197,91) 
3680 LINE -1197,99) ILINE -(193,106 
) ILINE -(195,110) ILINE -(194,113) 



3720 LINE -(193,114) ILINE -1188,1: 
2) ILINE -(184,110) ILINE -(183,110; 
3760 PSET (184,98) ILINE -(183,93): 
LINE -(189,93) ILINE -( 190,99) I LINI 

-(189, 108) ILINE- ( 187, 110) 
3830 PSETU66, 95) ILINE -(168,93)!L 
INE -(170,93) ILINE -( 171 , 96) ILINE 
-(171,103) ILINE -1170, 108) I LINE-,! 1 
70,109) 

3890 PSET (185,103) IPSET (183,102) 
IPSET 1167, 102 UPSET (167,101) 
3930 PSET (167,100) IPSET(183, 104) 
3930 COLOR 9 

3960 PSET (182,117) ILINE -(177,114 
) ILINE -(173,114) ILINE -(171,120) 
4000 PSET (170, 127) ILINE -(183,123 

Suite page 27 



_ JOY'S PEN 

Les Picasso en herbe vont etre aux anges. 
Void un beau programme permettant de creer de 
beaux dessins qui pourront etre sauvegardes sur K7 
pour la posterite 

Christian GAMBARI 
Mode d'amploi: 

Faites-vous accompagner d'une belle extension 8 ou 16K et de 
voire plus beau jo/stick. 



ERRATUM sur VIC 20 
STAR WARS du n° 70 
R2D2 es! passe nous voir et 
il n'etait pas content du tout I 
Nous avons oublie de preci- 
se r qu'avant le charge ment 
du programme il fallait taper: 
P0KE44 . 32 P0KE46, 32 
POKES I 92, POK EBT 93 , 
0-POKEB194,0 



3 REM * ORMBRRI CHRISTIAN 1/85 * 

4 REM * VIC 20 EXT. 6/16K » 
3 REM ************************** 

6 REM 

7 REM **** + + ***»******i** 

8 REM » INITIALISATION • 

9 rem mm " " " 




VIC 20 



lfl C-0 ;SN-36879- V0-15 I TH-36874 : DIMR1 C50G) . 81C388) 

13 F0RA=i3?B88T037888+22*23 ■ POKER, C ■ NEXT CE-36879 : EC-27 

28 U1-37131-U-37154 U-37132;D"42-B»D DE»4348-Dl"22-TC-33792 P-r 111-4096 :P0KECE. 2 
5 

29 POKESN,12:QOSUB230BQOSUB300 

27 REM •*••*«****•«•*•** 

28 REK • TEST JOVSTICK • 

29 REM *****•*»«**»**•** 

30 IFH-0RNDC (PEEKtUl )FIND32)»0>THEHD"B ■ H-l : G0T038 
48 IFH-1RNIK CPEEKCU1 )RND32>8>THEND-32 Dl-22 : H>0 

30 IF((PEEK(Ul>flND4)"0)THENDE-BE-Dl'D2— Di:OOSUB760'OOTO208 

60 IFCCPEEK(Ul)RNDS)"0)THENDE"DEtDl D2«D1 G0SUB768 GQTO280 

70 IF(CPEEK(U1)HND16>0)THENEE-DE-1 D2— 1-OOSUB760 OOTO200 

80 POKEU - 127 I IFC ( PEEK(U}flND128>-0)THENDE»DE+l : D2"l POKEU, 233 : GOSUB760 OOTO200 

90 IFDE<M1THENDE-DE-D200T0118 

100 IFDE>M1+306THENDE-DE-D2 

107 REM »*»-»*♦**•***»*»# 



110 IFPEEK<197)-7THENPRWT"n"; :QOTO30 

120 IFPeEK(197)-37THENCH-CH+i:D-CH:»-D 

130 IFPEEK(197>29THENCH"CH-1 D-CHB-D 

140 IFCHC0THENCH-128^QOTO380 

160 IFD>233THENCH"0 D"0 : OOTO3B0 

170 IFPEEKC197J-30THENB00 

180 IFPEEKC 197>«8THENP0KEI£. 32 1 DE"M1 D«B ■■ OOTO380 

190 IFPEEKC197)"33THENDOSUB2000 

200 IFPEEK(l?7)-29THENDl-2r00SUB77B 

210 IFPEEK(197)-36THEND1"23QOSUB770 

220 IFK-0RNDPEEKC197)"47TNEKCH"CH+12BK"1 :OOTO380 

230 IFK-IRNDPEEKU97)-35THENCH-CH-12B K-0-OOTO380 

248 IFPEEK<197K>31ANDPEEKC19?>O23THEN290 

230 IFPEEKC197)-23flNDPEEK<Ml*P)-32THENPQ<EMl+P.B'POKEMl*TC*P.0-OOSUB700:pOKEMl+P 

.32 

260 IFPEEKC 197)"31fiNDPEEKCMl+P)-32THENPOKEMl+P. B P0KEC11+TC*P, ■ COSUB700 i POKEM1+P 

.32 

270 IFPEEK(197)-31THENP"P*22:OOTO290 

280 P-P+l 

290 IFMl+P>4602THENP-0 00T03BB 

300 IFP£EKU97)-54THENEC-EC*i:P0KECE,EC IFEC-233THENEC-8 GOTO3B0 

310 ZFPEEKC197)-14THENEC-EC-1P0KECE.EC IFECC9THENEC-253-OOTO380 

320 IFPEEKU97)-34THENPOKECE.27OOTO300 

330 IFPEEK(197)-39THENC-CU : IFC-10THENC-0 : QOTO3B0 

340 IFPEEKC197>«41THENGOSUB1008P-0 

330 IFPEEKC197)-21THENGOSUB1300P»0 

360 IFPEEK<197)«13THENDE-M1+PGOTO390 

370 IFPEEKC 197>-32THEND-CH ■ B-D I CH-CH*1 

300 IFL<:e0RD>253THENIl-e 

307 REM *«««•*••••••••••■■• 

38B REM * ECRITURE ECRAN • 

3B9 REM *«•*«*••*••**«*«•• 

390 POKEDE, D - PDKETC+DE , C ■ IFD-32THENP0KEDE, 8 : FORT- 1 TD2B : NEXT : POKEDE, D : GOSUB700 

400 FORI-0TO4:POKETN+I,0:NEXT 

420 OOTO30 

450 REM ««•*«•••••••«*••• 

433 REM • MODE D'EMPLOI I 

460 REM ****** ««*»»**.»*** 

300 P0KE214, 10PRINT PRINTTAB<2) M «EGLE DU JEU 0/N ?■" OOSUB630 

310 1FPEEK(197X>52THEMPRINT"X; OOTO30 

320 PRINTCHRf (14) PRINTS * XOUS DESSINEZ RVEC M.E JOVSTICK. ■" 

330 PRINT"! I0U8 LES CflRRCTERES VEUVENT ETRE UTILISES. *" 

340 PRINT" TOUR LES CHOISIR. IL B3UFFIT DE PRESSER LH WTOUCHE '•-»--' ET LES" 

543 PRINT'IITOUCHES '<. * >' POUR »X OU *-. " IQOSUB600 

330 PRINT"H TOUR DESSINER EN 1 1 R-JTCONALE . PRESSEZ Lfl » TOUCHE V OU 'V." 

332 PRINT"» WJIVRNT PRESSION LE ■'--.-"' ECRIT OU RNNULEJB-ES CflRRCTERES ET RE-" 

354 PRINT"IPLRCE EN NORMAL RPRES MJIRGONRLE ' //\' ." 

555 PRINT"* -HOISISSEZ LR COULEUR1FVEC LH TOUCHE '-1 '. " ■ GOSUB608 

363 PR INT "m* L' EFFACE L'ECRRN" 

567 PRINT")0* '*-' PLRCE LE CURSEUR1EN HRUT H G RUCHE. " 

570 PRINT"W» '-_•-' -ORSEUR ~/\ 1PQUR DEPLRCER LE "- BSRNS EFFRCER LE DESSIN 

572 PRINT"* 



585 PRINT"« '•• SRUVE DESSIN/K7. D 'L' 

LE LIT SUR Lfl K7." 
386 PRINT"B '•' & ' t' "HflNOE LES 

KOULEURS CflBRE/ECRRN. " 
588 PRI«T"II '— -OULEUR B'ORIGINE" 
390 PRINT" '9- -ESSIN VIC 20" 
392 PRINT"» '?' -fiPPEL COMMRNDES" 
595 OOSUB600 ■ PRINTCHR« 147) .CHR*< 142) : 

RETURN 
600 POKE214.20: PRINT 
610 PRINT" »^PESSE2 UNE TOUCHED" 
620 POKE198.0URIT19B.1 RETURN- 
638 P0KE214. 20 PRINT 
640 PRINT" 

630 POKE19B.0 Uflnt98.1 RETURN 
700 FORT=1TO20 NEXT RETURN 
760 P0KESN.5 POKETN- 240 RETURN 
779 P0KESN,5 POKETN*1.220 RETUPN 

790 REM * TRBLE DES COMMRNDES I 

800 PRINT"30 a'v'l CRRRC. EN H R G 1 

3'INST'l EFFACE L'ECRRN" 
810 PRINT" St'Fl'l CHOIX COULEURS. JB 

a-CRSR-B/fl BEPLRCE LE VCR SRNS 

EFFRCEMENT. " 
820 PRINT"H S'RETURN'l DEP. DESSIN 

■NLLE POSITION CR." 
838 PRINT"« a'SPRCE'l CHOIX CflRflCT.B 

r< >'■ RJUSTE CHOIX." 
640 PRINT"« B'F3/F5'B INVERS. VIBEO" 

OOSUB608 
830 PRlNT"n» B'S-l SflUVE LE DESSIN 

■5UR K7." 
835 PRINT"* IL'! LE LIT SUP K7." 
S60 PRINT"* a* « t'l CHANGE LES 

. ICOULEUPS CADRE/ECRAN. " 
8e^ PPIHT-1) ICi COULEUP OPIOINE" 
870 PRINT"* 3-N g M'l DIRGONflLES. " 
fi71- PRINT"* S-Q'l DESSIN VIC 20"- 

OOSUB680 PPINT"n" ■ GOTO30 
998 REM ................. 

990 PEM * EHP.EG. DESSIN * 
995 REM **+♦»»*»**#*•*♦♦* 
1388 FORI=0TO585 
1818 P0KESN,8 POKETN-i; . 220 
1028 Al<I)»PEEt:<Ml+I) B1(I)=PEEK^ 
TC*M1+I ) POKESN. POKETN+2, 
1038 fll(I'=Ria> + 100 BI';I)=B1CI) + 

100 
1040 NEXT I 
1050 PRINT-K7 VIEROE SVP '"■ 

OOSUB600 
1060 OPENl.1,1 
1B70 PRINTKl.EC -PPINT-.T' . CS-" " 

D*=" '■ CB-0 
1C90 FOPI-0TO21 
1090 FORJ-0TO22 
1108 R*=STR$<A1<CBJ) A*=RIGHT* 

(fit, 3) 
1110 B*-STP»(B1'CB)) B(=RIGHT* 

(BS.3) 
1120 POKEM1+CB,A1(CB)-108 
1130 POKEM1*TC+CB,B1(CB)-100 
1140 C*-C**fl« 
1150 DS-D**B* 
1160 CB-CB*1 
1170 NEXT J 
1180 PRINT* 1,C* 
1190 PRINT* l,Dt 
1200 CS-" " Mm- ■■ 
1210 NEXTI 
1228 CLOSE 1 

1230 P0KE198.8 HRIT19B.1 
1240 RETURN 

1485 REM *♦+** » *»•*»«**** 

1490 REM * LECTURE DESSIN/K7 * 
1493 REM «•**•*) 



Ql TESTS 



1510 
1^20 
1330 
1940 

1558 
1560 

l=.:-'9 
1580 



1620 

1640 
■■ ! 
1660 

1670 

19^0 



PRINT">;7 EN PLRCE SVP I": 

QOSUB600:pRINT":r; 

0PEN1 .1.0: PRINT'T]" ; I CB-1 ^CR"0 

INPUTK1.EC POKECE.EC 

FORI-0TO21 

INPUTK1.C* 

INPUTtl.D* 

FORJ-0TO22 

Al-VHL<t1ID*(C*.CB.3))iRl-Rl-100 

Bl-VRL(MID*(Df.CB.3)):Bl>Bl-100 

POKEMl+Cfl.fll 

P0KEM1+TC+CA.B1 

CB-CB+S^Cfl-CR+l 

NEXTJ:CB-1 

NEXTI 

CLOSE 1 

POKE198.0^WAIT198.1 

IFPEEK<197)-41THEN1080 

RETURN 

REM * 



1988 REM* VIC BESSINE * 



2010 
232(3 
2030 



2120 
2138 
2140 

2130 
2160 
2170 

21B0 
2193 
2130 
2200 
2210 
2220 
2230 
2240 
2497 

243* 

2499 

2500 
2320 

..■■■■.■:■ 

2940 

2560 

2370 

25B0 
<!-■;>..' 
^■00 
S'Tl.J 
2620 

26?0 

.: ':■■!(' 

3000 

3010 

3015 
3020 
3025 
3030 
3040 



PRINT-T; ; POKESN. 12 

0-INT<RND(l)M) + l 

ONOGOTO2030, 2048. 2838. 2868, 2070 

X-16'V-lllQl-112:Q2-113:Q3-I14:a4- 

113 OOTO2090 

X-13 : V-92 : 01-94 1 GOTO28B0 

X- 16 : V-64 Ql-65 : Q2-73 ■ Q3-74 ! 04-73 * 

00T028B8 

X-2:V»77GOTO2080 

X-0-V-160GOTO2090 

M=INT<RND(l)*3)+t IFM-1THENV-V+128 

FORR-303TO0STEP-1 ■ TL-TL+1 

CS-INT(RNDC1)*30)+210 

Z-INTCRND<1)*X)+V 

I FZ-Q 1 0RZ-020RZ-030RZ-04THEN2-V 

N-INTCRND<1)*I) 

POKETN+N, CS : IFTL-130THENTL-0 TOKETN, 

: POKETN+ 1,0- POKETN+2, ■ POKETN+N, CS 

P0KEM1+R.Z 

0«INT(RND(1 )*18> i IFO-1THEN2160 

P0KEM1+TC+R.0 

IFPEEKC 19?)-53THENR-0:D-Z 

01 =0 : 02-0 Q3-0 : Q4-0 I 05-0 

NEXTR 

FORI-0TO4 

POKETN+1,0 

NEXTI 

POKE198.0 WHIT198.1 

RETURN 

PEM *f #*♦«+** 

REM + TITPE * 

REM ********* 

PRINT"^'; ^P0KECE,23 

X-B^V-205 

F0RR-329T0176STEP-1 TL-TL+1 

CS-INT<RND(1)*30)*210 

Z-INT<RND(1)*X)+V 

N-INT',RN0<1)*1) 

POKETN+N, CS ■ IFTL=50THENTL-0 : POKETN 

POKETN+ 1,0 POKETN+2, ! POKETN- ' ' 

P0KEM1+R-Z 



CS 



IFQ-1THEN2390 



Q-INT<RND<1)*1( 

P0KEM1+TC+R.0 

NEXTR 

F0RR=8T04 

POKETN+R.0 

NEXT 

FORJ-0TO17 

READCB 

P0KE4318+J.32 

POKE4340+J.CH 

P0KE4379-J.32 

POKE38132+J.0 

NEXTJ 

G0SUB6B8 

POKECE.EC 

RETURN 

DflTR81,81,32, 10, 15.23, 19,20.9 

DRTR3, 11,32, 16,3, 14,32,81,81 



FX 702P 



Voici I'OCCasion d'Stre COnvaincu une fois pour toutes rdsullat ou l'op6ration elle-meme. puis EXE Si vous tardez a repon- 
que votre quotient intellectuel correspond bien a I'idee dre > ou en cas d'erreur, le CASIO vous donnera la bonne reponse 
que vous vous en faites et P assera au tesl suiva nt- Dans ie cas oooMre, exact sarfi- 

Renaud KIESGEM de RICHTER 2 Ql LETTHES est idenlique au precedanl, mais carle fois, les chif- 
fres sont remplaces par des letlres et vous devrez bien sur. decou- 
vrir I'astuce. N'oubliez pas que le temps est partois limite. 

Modo demploi: 

1 Ql NOMBRES vous propose des suiles de chiffres obelssant a 3 Ql CHIFFRES ET t.ETTRFS est un savant melange des deux oU 

une suite logique, don! certains sont remplaces par # Elle utilise les astuces loglques sont plutot ditticifes a decouvnr ,., Bonne coglla- 

entre autres les operations + ,-,',: Vous pourrez repondre par le lion. 



.IS! 19 

1 M :Zt='r:«BI 
T «:!=I5:S=54:0 
■BUM 2!:FCR 

F=! 10 5:8=1!*F 
(II 

2 FIR M I! 2--'!l 
="!6SE StNEXI 
KiHEXT FtFR; iP 
ST ' Bi="tSitES 
I 

: wtiHi (FBHit: 
mm 
« fi=wtiT i.tmm 

■-M91 IIW: 



C=1*IHT (IBM*! 
:RET 

S 8SE 2im: :KI 

ItiEOIO 111 
1 )="»BC[EFSKUt,l 

BSMEsmn-y:" 

:8E! 
i t^ZWUVIlISMPC 

mucjiHGFEOcett" 
mi 

S IF M-iSSe LlYI 

=tM» 
9 RET 

IE M:h'=!:EEE T :6 
010 17 



I! FOE 1=9 TO HtES 

I EtESB EiHEXT 

!:!ET 
12 Vt=W«IKCl) 
1! C=CtR:RET 
IS ESS <:E=E»I:l=E 

f8:B=W:5S! E: 

PET 
!? SSB 3=SSE 11:60 

to ne 

IB VI=«1D(M):60T 
00 

1? K!="":F0» M ! 
OtESB EHEXT 
ItRJUMtlPEl 



a iMsisa t:6otc 

17 
II FP.T " 91 TEST 
ilETTES!'!STBi 

OtO=l!tRET 
I! IF KSMiM! 

E=I1:60T0 E 
23 «=5:B=-l:E=« 
H 6S8 II 
25 R=fltBtRET 
If SI=«ei:fitt=R9l: 

R)t=X)!RET 

17 H=IHT (RBRH3.tR 
ET 

18 E!B 18:8010 15 



I) t=™:F0R 1=8 TO 
HtBSB Bti=t«BI 

(DtKEXT IiPET 
38 R=l:H=8:6SB T:B 

SB JtSSB ;i:8SB 
27 
31 FOR 1=8 TO 8 ST 

EP 3!Xi=Bta>:6 

S8 H»3<!!OT It 

80T0S 
31 B=I»IHT (RBRM2 

:E=3! 
33 M(I)=UII(C.l!: 

EtTO 
3* 8l'.I!=8)(It2)tE 



0T0 39 
35 6SB 37:fltil*D= 

Bt(IrI!:63T0 3? 
3S BSB37:«!(IHi= 

SUET 
37 9t;;>=8l(It!!!8 

ET 
3! DKIMBU'W 

EBTO IB 
3! flttlH)=Xt:SET 
18 J=5i!=-l:«=3:6S 

B TtSSE 18!E=43 

:(SB 4:F0? i=8 

TO 516SE 19 
(1 8-KtiSS) C*43 



tHEXT J:6SB3tB 
=56t60T0 5 

42 flKIMUNCD: 
SOTOO 

43 m=»tM(I)iIET 

44 86f=B7ii87t=i:»i 
XI=R8t:88!=89f: 
Wt»X*!68l 49:8 
BI=Xf!60T0 IE 

45 FOR I=E TO 8: 81 
O-HKItlliNEK 
T I:89(=»:RET 

46 9SI=flS!:fi81=89t 
:99!=fl7l:R7MI 
:RET 

11 fiit=REl:ft!l=B71 
:B7|=XCESE 4-: 
B81=»9l:B9i=Xt: 
RET 

4S Bil=87|:8'!=3Si 
:88!=::t:SSE 19: 
B7)=B91:B5!=«II 
:88!=XI:RET 

«? wntsse i9:;-:t 

=17f:ft7l=S8|:|!E 



58 P--I:B=7!ESe T:E 
SB 3:B=8:6SE II: 
6SE T:B=l:6SB » 
18OT0 S 

52 60T0 32 

53 Hi 1=B TO H ST 
EP 2:GSB 8: SSB 
EIHEXT HRET 

54 B=9:SSB 29:PRT 
:PST it" '"::60 
TO 211 

» IF I=0;VS=RIU! 

:RI(!)="Uir 
57 RET 
56 60TO 38 
68 t=T:6SB TiESB 7 

I6SB 65:B=0:6!E 
»:SSB TiESB 6: 

ESB S5:8=l:6S8 

fjiSSB 3 
•I )t=8KIII:y!="": 

FOR 1=1 TO LEHt 

VI):V!=yft2|:HE 

XT i:B=S:B0T0 6 



4 

62 fll<!l=«II)!C,8): 
C=Ct9:8=«tJ:RET 

64 R)([)=TI:H=6:S0 
TO 5 

65 IF K2UMIMI 
RET 

66 H=4:]=-l:RET 

281 HP " '.HI 

282 IF Ht=»(IPRT :P 
8T"EXRtT"::ST8 
T 3«F*TiRET 

2B3 PRT :PRT "F80X 
CETffll ':Vl;: 
ST9T F-TIRET 
118 FRT :PRT Til" ' 

111 FOR 1=8 TO 99: » 
ME7I1F Ht="" 
HEXT ItSOTO 113 

112 SOTO 281 
21! PRT iFRT "REPOH 

ORE PLUS VITE=" 
IWHSIIil -S:RE 

Asuivre: 



INDIANA 



Decidement, les aventures de ce sympathique heros 
sont loin d'etre terminees. ,. La preuve ! 



J. Philippe EIMER 



THOMSON TO7JO7 70,MOS. 



SUITE DU N°7I 





9058 IT VI AND K'25 THEN LOCATEX- 1 . Y: PR 
INT "sX«X*|!GOSUB 926 

9654 IF X = 24 THEN 16886 

9655 IF V=l AND 'X=I6 OP X=I5> AND v=l 1 
HEN 16808 

9656 GOTO 9810 

9866 IF X*23 AND 1 = 1 THEN LOCATEX- I , Y : PR 
INT- -iNI-7!Y»Y*l:C0T0 660 

9865 IF Y=l AND X=10 THEN LOCATEX-1 , Y: PR 
INT" •:NI = 18:Y=i'.?:GOT0 668 

9866 GOTO 9018 

9870 IF Y=l AND X>9 THEN LOCATEX-I ■ Yj PPI 
NT- ■iX-X-|:C03Ue968 

9874 IF X=9 THEN 16868 

9875 IF Y-l AND (K = 17 OR X = 16) AND V= I T 
HEN 16880 

9676 GOTO 9818 

9500 H=INT(RNDtl0:"l 

9516 IF H>2 THEN RETURN 

9520 ON H GOTO 9548.9558 

9538 GOTO 9566 

9546 L0CATEI5,2:PR1NT' ■ 

9545 V»ls RETURN 

9550 B0XU28, 16)-' 136. IB), 3 

9555 V=0: RETURN 

8066 GOSUB 688 

8818 GOSUB 788 

ease if lianeoi and x=3 and z>-i and y 

9 THENGOSUB18200 

8025 IF .■.-;, AND LIANE=I AND Z = -l THEN 
GOSUB 14500 

6BE6 IF X = 18 AND Y = 9 AND 2=-l THEN LOCH 
PRINT - -:Y=Y-l:G0SUB68B 

0027 IF PORTE KM AND X-22 AND Y = 9 AND 
I ] : AND 2—1 THEN PI "■ I f : I '.,.!.■': . 
TE23,7:PRINT ' : L0CATE23. 8: PRINT' ' : L 
ATE23,9:PRINT" - 

8038 ON S COTO 16858,18618.16676.16618, 

8090, 18810.18110, 18010 

0040 GOTO 18810 

0856 IF X-18 AND Y=4 THEN G0SUB14566: Y= 
. NI=9:GOSUB92B:GOT09818 

8B51 IF X-18 AND Y09 AND Y>3 THEN GOSU 

7-0:Y^V-l:GOSUB686!GOSU814158 

8B52 IF X-5 AND ' :>.' AND Y>5 THEN GOSUB 

30: Y = Y- 1 : GOSUB756: GOSUB 14 160 

0853 IF X»5 AND Y-5 THEN G0SUB14576: Ni- 
ls GOTO 600 

0054 GOTO 1B810 

8878 IF Y = 9 AND X-0 THEN G0SUB738:X=X*1 

G0SUBB58 

8071 IF P0RTEl=I AND Y=9 AND X-22 THEN 
GOSUB738:X»X*2:C0SUB858:NI«6:GOTO6ei6 

8B72 IF X-l-5 THEN C0SUB14576 

8873 IF P0NT=8 AND X=!3 THEN 16B8B 

8874 GOTO 16818 

8898 IF X=I0 AND Y'9 THEN G0SgB73B: Y-Y* 

:GCSUB14138:G0SU8686 

0891 IF X-5 AND Y'9 THEN GOSUB730: Y»Y+ I 

GOSU8I4160:GOSUB750 

8892 GOTO 10810 

8118 IF X>3 AND X<0*1 AND Y=9 THEN GOSU 

■ mi:... ,- ,:,.,„,;. iM 

9116 IF X'l-5 THEN GOSUB 14578 

3117 IF X>22 THEN GOSUB730: X=X-1 : G0SUB8 

3118 IF P0NT=6 AND X=21 THEN 16668 

3119 GOTO 10018 

3288 GOSUB720: LOCATE 1 , 9: C0L0R4I PRINTGRf 

;>;GRf<3>iLINE(8,72)-<22,64>,4iL0CATE8, 

!C0LQR7 = PRINT-1 lanes' :FQRl-eT0568:NE>;T 

:L0CATE8,7iPRINT" " 

18218 LOCATES, 7:COLOR3:PRINTGRf(31):LINE 

,53>-<8,72>,l 
10228 LIANE-HRETURN 

1886 GOSUB750 

1010 CO SUB 700 

1028 IF X-3 AND Ch1SSE=1 AND Y=5 AND Z= 
THEN COSUB 11150:FOR 1=8 TO 280:NEXT 

1821 IF X-3 AND POIDS-1 AND Y-5 AND Z-- 
THEN LOCATE3, 31 PRINT* " : LOCATl 1 ■ 5: COL 

>4 = PRINTGRf (B^CRf'l^CAIS'SE-l: FOR 1=0 

1 208: NEXT I 
822 IF X=3 AND CA1SSE=8 AND Y=5 AND Z= 

THEN GOSU86501POIDS-1 
038 ON S GOTO 11810,11818,118-16,11010, 

1, 11018, I 1070, I I01H 

948 GOTO 11818 

"-" IF X<7 AND Y=5 THEN COSUB730: X=X*1 
GOSUB 858 
1055 GOTO 11818 

JB68 IF X-S AND Y-5 THEN GOSUB730: Y=Y+1 
GOSUB750=NI-10tGOTO 10616 
1065 GOTO 11810 

1870 IF X>3 AND Y=5 THEN GOSUB730:X=X-I 
GOSUB B8B 
1875 GOTO 11818 
158 G0SUB726 : LOU A f El. 5 :C0L0R4: PRINTGRf 
!); GRf(3>:LINE< 8, 40) -(22, 32).4: LOCATE 1, 
COL0R7:PRINTGRfU5);GRf(15):FOR 1=0 TO 
■88: NEXT I 

1155 LOCATE l,l:PPINT- "I CLE1 =1 : CLE2= 1 
P0IDS=8:CAISSE =2: RETURN 
.3600 G0SUB8B6 
,2610 GOSUB708 
12626 G0SUB12588 

""" IF X=7 AND Y = 16 AND Z--1 THENLOCAT 
»R1HT' -:Y.r-l:G0SUB6B8 
2848 ON S GOTO 12860. 12070. 1208B. 12P18. 
2096, 12188, 12116,12618 
2B58 GOTO 12018 

;B68 IF X-7 AND Y.I6 AND Y>12 THEN GOSU 
I738IY-Y-1:GOSUB680:GOSUB14I78 
2865 GOTO 12018 

2B78 IF X>17 AND K<21 AND Y<17 AND Y13 
THEN C0SUB738:X=X+l:Y=Y-l:G0SUB858 
2875 GOTO 12018 
2800 IF X<18 AND Y= 1 6 THEN C0SUB738: X=X 

G0SUB85B 
2883 IF <X-14 OR X=15) AND Y=16 AND V2= 

THEN 16880 
.2884 IF (X=9 OP K*l*9 AND Y=16 AND Vl=l 
THEN 16888 
.2865 IF X=21 AND Y = 13 THEN C0SU8738:"-* 

G0SUBB58:HI-5:G0T056ie 
.2686 GOTO 12818 
;2096 IF X-7 AND Y=16 AND Z*8 THEN GOSUB 

-Y+l:GOSUB758:NI=14:GGT0688 
.2095 "IF X=7 AND Y:16 THEN GOSUB730: 1 *V+ 
:GOSUB680:GOSUB1417B 
2696 GOTO 12618 

"" IF X<22 AND X 18 AND V> 18 AND Y« 16 
THEN G0SUB738:X=X-l:Y=Y*l:G0SUe86e 
1185 GOTO 12618 

£116 IF X<19 AND N 3 AND Y=16 THEN GOSU 
B738!X=:<-l:G0SUB8e8 



12113 IF 'X-14 OR »tS) AND < = 16 AND Vga 
1 THEN 16668 

12114 IF 'X=9 OR X=18i aND Y=16 AND W = l 
THEN 16888 

12115 IF X=3 THEN 16068 

12116 IF X=7 AND Y=!2 THEN GOSUB14590: X= 
.:-2: G0SUB8B8!NI = 1 3: GOT06BB 

12117 COTO 12816 
12506 H2=INT(RNDfl8 --1 
12510 IF hj- 4 THEN RETURN 

12520 ON H2 C0T012538. 1 2546. 12558, 12568 
12525 GOTO 12580 

12530 L0CATE9, 17:PRINT" " 

12531 V1 = HRETURN 

12548 L0CATE14, 17:PPINT- ■ 
12541 V2=l:RETURN 
12558 BOX1112, 13B ■-• 128, 1361,3 
12551 V2-6:RETURN 

12560 B0Xl72,138'-i8S.136'.3 

12561 VI=0:RETURN 



12610 GOSUB7B8 

12628 IF X-3 AND Y-12 AND COFFRE5=0 AND 

Z'-l THENCOSUB 12700 

12638 ON S GOTO 12618.12610.12648.12618. 

12610, 12610, 12650, 12610 

12635 GOTO 12610 

12648 IF X-5 AND Y-12 THEN GOSUB730: X=X» 

::C0SUB688:Nl-12:GOTO12818 

1264S IF X<5 AND Y-12 THEN G0SUB736: X-Xt 

KGOSUBBSe 



THEN G0SUB738:; 



12JCOLOR4: 



12646 GOTO 12618 

12658 IF X>3 AND Y = 

! I G0SUBB88 

12655 GOTO 12618 

I870B C0SUB728IL0C( 

t : -iCPf j ■ = :. IKE 7. -.■.:;.:>.. ■ 

12710 LOCATE 1, 16: CQLOR7: PRINTGRf (15>:F0R 
1-0 TO 3B8:NEXT I sLOCATEl, 18: PRINT" ":l 

INE'0,B0)-<24,88). 3 

12720 C0FFRE5-l:CLE3>l:RETURN 

12800 G0SUB758 

12810 G0SUB768 

12828 IF X-5 AND Y=22 AND CLE3=1 AND Z=- 

1 THEN L0CATE4,22:PRINT- ": LOCATE4, 21 :PR 

INT- -IL0CATE4,28:PRINT" *i LINE< 39, I56»- 
39, 164),3!F0R 1-8 TO 168= NEXTI : TRESOR' 1 

:G0SUB12966 

12838 ON S GOTO 12850.12810.12860.12818. 

12878. 12816, 12886, 12818 

12846 GOTO 12818 

12858 IF X-7 AND Y-17 THEN COSUB730: GOSU 

B 1 4680: Y-Y-l: COSUB 14608: GOSUB 758:NI=12: 

COTO 12818 

12B51 IF X-7 AND Y.23 AND Y-15 THEN GOSU 

B738:Y-Y-HCOSUB750:GOSUB14180 

12B55 GOTO 12818 

1286B IF Y-22 AND \- 18 THEN C0SUB738: ?>K 

*I:GOSUB850 

12863 IF X-l-7 THEN C0SU8 14688 

12866 COTO 12810 

12678 IF ^=7 AND V ■ 1 6 AND K88 THEN GOSU 

6?30:V-Ytl:-OSUB75e'C0BUB14188 

12B75 COTO 12010 

12B80 IF Y-22 AND X>5 THEN COSUB730: X=X- 

;:COSUB880 

12885 IF X*l-7 THEN G0SUB14688 

12886 GOTO 12810 
12988 FOR 1-1 TO 6 
12918 PLAY -A1T2D0SIPEFA- 

12915 GOSUB 650 

12916 FOR J=8 TO 88:HEXT J 

12917 GOSUB 880 

129ie FOR J-8 TO Se:NEXT J 

12930 NEXT I 

12940 F0RI-21T022SF0RJ-8 TO 3: LOCATEJ, I : 

PRINT" -SNEXT J.I 

12950 LINE'8, 152!'-<0.1B3>,1 

12966 RETURN 

13660 COLOR7:Z=INT RND«10)*1 

13883 IF Z>3 THEN RETURN 

13803 LINE<319,128'-<319,144>,I 

13810 ON Z GOTO 13820,13030,13848 

13815 GOTO 13008 

13020 LOCATEO,R:PRINT" - : LQCATEB+1 , R:PRI 

NT" -:e-34:R=16:L0CATE6,R:PRINTCR«(l8>:L 

0CATEO*l,R:PRINTCR*< " 



=5 THEN L0CkTE34.3:C0L0P2:PPIN 

■4 THEN LJCATE34.2:C0LOR2:PRIN 
T GPI'32> 

14136 IF Y-3 THEN t 0C»TE34, l:COLOP2!PPIN 
TGRf 32.' 

14137 IF Y=2 THEN i.0CrtTE34. 31COLOR2: PR IN 
TGP*'32* 

14138 RETURN 

14146 IF Y-5 THEN L0CATE23.2iCOLOR3:PPIN 
TGPI'31 UL0MTE83,3:PRINTCP*'31> 

14141 IF Y-4 THEN L'?C ATE23. 2: COL0R3: PPIN 
TGR*'31':L0t»TE£7.^:P!:-:NTQRj'31' 

14142 IF Y=3 THEN L JCATE23. 4: C0LOR3: PRIN 
TGR*131 i 

14143 IF Y-2 THEN L0CATE23. 3:COLOP3:PPIN 
TGRH31' 

14144 IF Y=l THEN L3CPTE 23. 2=C0L0R3: PPI 
NTGRK3I ) 

14145 RETURN 

14158 COLOR2:lF V»8 THEN LOCATE10, 6: PRIN 

TGR*^32 > 

I41J1 IF Y=7 THEN LOCATE10,5:PPINTGR*'32 

14152 IF Y-6 THEN LOCATE 10, 4: PR1NTGRK 32 

14153 IF Y-5 THEN LOCATE 10. 3:pRINTGR«< 32 

■: LOCATE 18,6: PRINTGR»(32> 

14154 IF Y-4 THEN LOCATE10,5:PPINTCR*< 32 

14155 RETURN 

1416B C0L0R3MF Y«9 THEN L0CATE5,6: PR INT 
CPf ■ 31 .:L0CATE5,7:PPINTGR«<31> 

14161 IF Y-8 THEN LOCATES, 6: PRINTCR«(3I ) 
: LOCATES, 9: PR INTGRS 131) 

14162 IF Y-7 THEN LOCATE 5, 8: PRINTGR*<31 

14163 IF Y-6 THEN LOCATE 5, 7=PRIHTCR*(31 

14164 RETURN 

14178 COL0R2UF Y=15 THEN L0CATE7, 13:PRI 
NTCRX32) 

14171 IF Y-14 THEN L0CATE7, 12:pRINTCRt(3 

14172 IF Y-13 THEN LOCATE7, 1 1 : PRIHTGRX3 

14173 IF Y-12 THEN L0CATE7, 13: PRINTGR*<3 



3823 I 



!<296, 121 



(312. 128). 



13B24 LINE(296, 121)-<296, 

13625 LINE<296,12I>'288, 1281,2 

13826 RETURN 

1383B LOCATEB,R:PRINT- ■ : LOCATEO*!, RiPRI 

NT- ■ :0=36!R-18: LOCATEO, R:PR1NTGR»< 18) :L 

0CATEO*l,R:PRINTCR*U9) 

13833 LINE4296, 121 >-C312, 128), - 1 

13834 LINE<296,12I>-(286, 12B),-1 

13835 LINE<296, 12D-C296, 144), 2 

13836 RETURN 

13840 LOCATEO, R:PRINT* " :LOCATEO*l,R: PRI 
NT" ' :0=38:R=16: LOCATEO, R:PRINTGR*( 18) =L 
j:aTE0*1,R:PRINTGRI' 19> 

13843 LINE<296, 121 )-(296, 144 ), -1 

13844 LINE<296, 121 .-1280, 128), -1 

13845 LINE<296,121 i-(312,128),2 
13646 RETURN 

14688 IF Y=21 THEN C0LOR3:LOCATE36,22: PR 

INTGR«(31> 

14618 IF Y-28 THEN C0L0R3:L0CATE36, 21 : PR 

INTGR«<3!> 

14828 IF Y-19 OR Y-22 THEN COLOR3: LOCATE 

36,28:PRlNTGRf(31> 

14838 RETURN 

14648 IF Y^19 OR Y=16 THEN COLORS: LOCATE 

26,17:PRINTGR«(31 ) 

1485B IF Y-1B THEN C0L0R3SL0CATE26, 19:PR 

INTGRK31) 

14068 IF Y=17 THEN C0L0R3: L0CATE26, IBiPP 

INTGRK3D 

14878 RETURN 

14088 IF Y-12 THEN C0L0R3J L0CATE24, 13: PR 

IHTCR«<31):L0CATE24. 10: PRINTGRf (3! ' 

14883 IF Y-ll THEN COLOR31 LOCATE24, 12:PR 

INTGR*'31) 

14090 IF Y=13 OR t-9 THEN C0LOR3: L0CATE2 

4. 10:PRINTCR*(31':LOCATE24, 1 1 :PRINTGR*'3 

14B95 IF Y-16 THEN C0L0R3: L0CATE24, 1 1 : PR 

INTGRC3I) 

14106 RETURN 

14118 IF Y=18 OR V=6 THEN LOCATE37, 8: COL 

?P;-.PPINTGR«'31:<:L0CaTE37.7:PRINTCR»'31 > 

14113 IF Y-9 THEN COLOR3:L0CATE37, 10SPRI 

NTGPH3r'tLOCATE3 T .7:PRINTCR*<3l I 

14120 IF Y=8 THEN l0CATE37,9:C0L0R3=PRIN 

TW*<31 ■ 

14125 IF Y=7 THEN L0CATE37, 8: COL0P3: PRIN 
TGR8C31) 



'-22 THEN LOCATE 7.201PP 




JB/tf ///// lit. 

3. 18:PRINTU;- FRANOS" 

17188 COLOR2:ATTRB0. KLOCA 

Le tresor 0' ■;: C0L0R1 : PRINT ■ INDIANA- : 

0R2:L0CATE19, 16: PRINT-uous tppartient 

1-118 C0SUB786 : LOC HTE1, 22: PR I NT -vOULE; 

OUS REJOUEP --:a»=INKEY»: IF A«':"0" AND 

A* "N" ANIj Z '-1 THEN 17110 

1-120 IF Z=-l OR h*=-0- THEN ATTRB8,en 

EAR.,?7:CLS:GOT055 

17130 END 

56008 ' CaISSE 

50885 DEFGPI' 8.-16. 127.255. 127. 127.255 

27,16 

58610 DEFGR*. i I-J6.234, 253,234,834,235 

34,16 

56620 DEFGRf '2'=0, 127,255, 127, 127.255. 12 

7,16 

58838 DEFGR*<3'=8.254, 255.254, 254.255.25 

4. 16 

58835 ■ PELLE 

38040 DEFGR*'4 1-0,0, 0,224, 191,224,6,8:1 

FGRH5 ' = 8,8, 28, 38. 255. 38, 28,8 

58045 ' NEC 

50058 DEFGR*'6- = 24,6B,24,24.124.252.1S! 

::-7:[EF.-,R*>-7 - = 135.5r ,56.40.44,36.228, 134 

=DEFCR*t 8 1-24, 60. 24. 24.62,63,61.93 

58868 DEFGP*- 9 >■ 15", 28,28,28.52. 36. 39.97 

IDEFDMI 161-153. 109. 153.90.68.60,68,60 

50076 DEFGRH 11 I =60. 60, 68. 36, 36. 36, 36. 18 

2:DEFGR>( 121=66.60. 60.36,36. 36,36.36 

58080 DEFGRH 131 = 96. 240. 103, 127,31, 14. 

,36: DEFGRf < 14 ■=8,0,240,248,236,54,25. 15 

50083 DEFGRf<33;-2S. 58, 125, 98,96, 66, t .. 

0: DEFGRf 144) -6, 15,236,254,248, 112.72,36: 

DEFGRf.45)=0,0, 15.31.55, 188, 152.240 

58885 * CLE 

56696 DEFGRf* 151=28. 34,34,28,8, 12.8, : 

58095 ' SERPENTS 

56160 DEFGRf (161*0, 2, 7,2,2, 130. 68. 5u s DEF 

GR*i !?>"•, 12,12.16.35.69,63,1'" 

56105 ' ROCHER 

56110 DEFGRf (181=3, 15.31, 127,255,255, 127 

, 31: DEFGRf (191-224. 252. 254, 255. 255,. -55. Z 

48,224 



50115 ' 



rAS 



14174 RETURN 
14188 COL0R3: IF 
INTGRf (31) 

14181 IF Y-21 THEN L0CATE7, 19: PRINTGRf ( 3 
1 :L0CATE7,22:PRINTGRf(31) 

14182 IF Y-28 THEN L0CATE7, 18= PRINTGRf (3 
i.>:L0CATE7,2l:PRINTGRf(31) 

14183 IF Y-19 THEN L0CATE7, 1 7: PRINTGRt(3 
1 •:L0CATE7,28:PRINTCRfC31) 

14184 IF Y-16 THEN L0CATE7. 19: PR INTCRf( 3 

14185 IF Y-17 THEN L0CATE7, 1B= PRINTGRK 3 
I • 

14186 RETURN 

14588 FOR 1-22 TO 28STEP-1 : C0L0R3I LOCATE 

36, l:PRINTGRf<31 »:NEXT I:RETURN 

14510 FOR 1 = 19 TO 17 STEP-1 : C0L0R3:L0CAT 

E26,I:PRINTGR*(3i:':NEXT I: RETURN 

14528 FOR I'll 10 12>COLOIt2>LOCATE30,i;P 

PlNTGRt(32>:NEXT Is RETURN 

14538 FOR 1-18 TO 13:C0L0R3IL0CATE24, I :P 

RINTCRf<31>!NEXT I : RETURN 

14540 FOR 1-7 TO 1B:C0L0R3:L0CATE37, I : PR 

INTCRf<31)'NEXT l:RETURN 

14558 FOR 1-2 TO 5: C0L0R3: L0CATE23, I : PRI 

NTCRt(31):NEXT I: RETURN 

14560 FORI-3 TO 6: LOCATE10, 1 :C0L0R2: PRIN 

TGR*(32):NEXT URETURN 

1457B C0L0R3:F0R I«6 TO 9: LOCATES, I :PRIN 

TGR<<31):NEXT I:RETURN 

1458B 0-22SPONT-HCOLOR 2: GOSUB720:LOCAT 

El 3, 19:PRINTGRf(46);CRf(47)tCRf<48)!CRf< 

49>iGRf(58);CRf<33>;GRf(54);CSf<51);GR>< 

52 >: RETURN 

14598 C0L0R2:F0RI=I1 TO 131 L0CATE7, I IPRI 

NTGRt<32>:NEXT I:RETURN 

14688 C0L0R3:F0R 1-17 TO 22: L0CATE7, I : PR 

lNTGRf(31>:NEXT I: RETURN 

16888 FOR 1=8 TO 18 

16625 SCREEN,, 1 

16638 FOR J-8 TO 28=NEXT J 

16848 SCREEN,, 8 

16845 FOR J-8 TO 28:NEXT J 

16846 PLAY -A2T3L12SID0LARE' 
16858 NEXT I 

16851 CLS:C0L0R6: LOCATE 17, 5! PR INTGRf (55) 
;GRf(56>;CRf(64> 

16852 L0CATEI7,6!PRINTGRt(65>;GRfl66)(CR 
f (67 >: LOCATE 17, 7: PRINTGRf (68 >;GRf (69); CR 
*(78) 

16853 LOCATE 17, 8: PRINTGRf! 71 >;GRf (72); GR 
»'73>:L0CATE17, 9: PRINTGRf (74>;GR«(75>;CR 
f(76> 

16855 C0L0Rl!L0CAT£2,3:PRINT-<«t incidin 
t,-:L0CATE2,4:PRINT-uoui tun «t«":COLOR 
3:ATTRB8,1!L0CATE3,7:PRINT-FATAL '-iATTfi 

16856 C0L0R5:L0CATE22,3:ATTRBl,8:PRINT-c 
i -it : -:ATTRB8,0 

16057 L0CATE24,8!C0L0R1:PR1NT- " 

16858 C0L0R3:L0C0TE23.5:PRINT-un »««ntur 

ier':L0CATE24, 7: PRINT IMPRUDENT ' 

lr068 C0L0R2:ATTRBB. 1 : LOCATES, 14: PRINT "C 

'est PERDU, aais ne desespfrez pas,auecu 

n petit effort It tresor d' INDIANA uousa 

(ipartiendr* ■- 

16870 C0L0R7:ATTRB8, 1 : LOCATE 1 , 22 i PR INT" V 

OULEZ-VOUS REJOUER 7* 

16888 Af-INKEYf : G0SUB78B 

16098 IF AfO-0' AND AtO'N" AND ZO-1 T 

HEN16070 

16108 IF Af-'O- OR Z=-l THEN ATTRB0,6:CL 

EAR, ,77:CLS:GOT055 

16118 END 

17800 CLS = ATTRB1, 1 :B0X<6, 8 >-( 319, 199>, 1 

17010 Zf=-A804DORERESODORE03SI04DO-!PLAY 

Zt:FOR 1-1 TO 7 

17020 C0L0RI:L0C6TE7,4:PRINVC'E3T GAGNE 

■ -:LOCATE3,B:PRINTV0US ETES RICHE '" 
17030 FOR J*0 TO S8:NEXT J 
17040 L0CATE7,4:PRINT" -:LOC 

ATE3,8:PRINT- 

17658 FOR J-8 TO 80JNEXT J 
1^868 NEXT I 
17878 PLAYZ* 

17888 C0LOR3:L0CATE3.17:PRINT CRI(57>:GR 
f.58)JGRf(59i:L0CATE3. 19: COL0R4: PRINTGRf 
:68)!GRf(61l;:COL0R3:PRINTGRf(62>;CRf(63 

17898 C0L0R6: LOCATE 13. I 9: PRINTGRf I 1 1 • : LU 
CATE13, 17:PRINTGRf'10) 

1^095 C0L0R5:ATTR88. 1 : L0CATE3, 6:PRINT"V0 
TPE GAIN SUPPLEHENTAIRE EST DE :":LOCATE 



58116 DEFGRf (34 1=1. 7, 15, 31 , 63. 127. i 27 . 25 
5: DEFGRf ( 35 J-0, 3, 15,31,63, 127.255. 25S:[>E 
FGRfl 361=1 12, 252, 255, 255, 255, 255, 255, 255 
: DEFGRf < 37 )-8, 8.0, 128,246,252,254,255 

56117 DEFCRf(38)-128, 192, 192,224,246,240 
.248, 252: DEFGRf (39 i=252 ,252, 254, 254. 254, 
254,255,235 

561 18 DEFGRf 148) =8, 8, 6,0,0. 1.7, 31: DEFuR* 
'4 1 >-8, 8,8,6, 63, 255, 255,255; DEFGRf. 42 '=0 
,0,0,8, 128, 192, 224, 240:DEFGRf v43)=240,24 
8. 252, 252,252, 254, 254,255 
56126 DEFGRf(20)=7,7, 15,31,63.63, 127,255 
:fEFGR*'21) = 7, [5,31 . 63,255. 255, 255. 155H' 
EFGRf(22)=6,e,8,0,6.0. 1,3: DEFGRf' — 
,8,8,8,1,3,3 
50138 DEFGRf (24) =7, 15.31,63,255.255.255. 
255:DEFGRf(25>»8,0.0,0,3, 15, 127. 25'.: PI F i, 
Rf(2$)»8,8,8, 128, 192, 248, 254, 255: DEFGRf 
27 1=128, 192, 224, 24B, 248, 252, 254, 255 
56140 DEFGR*(281=128, 192, 192, 192,224,224 
,248, 248: DEFGRf i29 > =248, 246, 248, 248, 248. 
rT48, ^52, 2S2I lltftmiMJ'iJ*. £S2, I3E, S3*, £ 
54,254,253,233 
3B145 ' ECHELONS 
50158 DEFGR»<31 1=255, 129, 129, 129,129, 129 
,129,129 
50155 ' LIANES 

50168 DEFGR»<32>-8,8, 8,8,8,8,8, 8 
5B178 ' PONT 

58180 DEFGRf (46>-255, 24, 12, 6, 3, 0, 0, 0:DEF 
GRf(47)-255,132,l- 



132, 132,132, 196,52,15:DE 

!,33. 33,33, 33, 255:DEFGR 
8, B,255:DEFGR»(5B)«255 

.,255: DEFGRf (51) -255, 34 
0:DEFGRt<52)-235,24,40 



FGRf(4B)=255,33,; 
t(49>-255,8,B,8,i 
,66,66,66,66,66,1 
,34, 34,34,35,44, i 

50196 DEFGRf (531=255, 16, 16, 16, 16, 1 

55iDEFGRfl54)-255,]-- - 

2,255 

50288 ' CERCUEIL 

50210 DEFGRf(55>- _, _. 

561=24,24,24,253,233,24,24,24 

50220 ' TRESOR 

50230 DEfGRf(57)=7,; 

5.255:DEFGR*(58>='-' 

,235,255!DEFGRtl59)' 

0,248 

58240 DEFGRf(60)=255, 255,255. 255, 255, 127 

.56,56:DEFGRf(61 ' = 255.255.255,255,255,25 

4,28,28iDEFCRf(62)=24B,248,252,255,255,2 

53,255,235 

58258 DEFGPf(63>' 

32 

50260 ' CERCUEIL i suite)' 

50270 DEFGRf<64>=0,8,8,I92, 192,8,6,6 

GRf'651-6, 8, 0,0,8,8,0. I : DEFGRf ( 66 ) = 24 . 24 

,24.24,36, 102, 165, 66: DEFGRf (67) -8, 0.8,0, 

0.0,6, 126: DEFGRf(68) = l, I, 1,2, 2,2,4, • 

50230 DEFGRf<69)=66,66,66.66,66.66.'it. cc 

: :EFCF$. 70 J=128. 12 8. 64. 64,64,32. 32,32 =DE 

FGRf(71)=4,4,8,8,9, IB. 20, 24 : DEFGRf i 

29,129, 129, 255,8,0,0, 6: DEFGRf( 73)-: 



132, 132,132, 132, 132,13 



),6,8,3,3,e,e,0:'DEFGRfi 



',31, 127,255,255,255,25 
78,224,246,255,255,255 
" " 128,192,224,24 



128,224,224,246.2 



6, 16, 1 



,72,' 



,24 



58298 DEFGRf' 

DEFGRf(75)=e, 0,8,6, 

8,8,8,8,8,8,248,6 

50586 CLS:RETURN 

68886 DATA 1,184.318,184,184,168,318,1 

.208,136,236.136,256.136.256.128.256.1 

.264,128,264, 128.264, 128, 163,1 12,224. 1 

.176.88,279.80,2^9.80.279.88,279,88,318, 

88,176,48,247,48,2*7,48.247.56,247,56.31 

9.56.288,24.319.24,72, 16,280, 16 

68818 DATA 1,48,56,48.1.86,104,88,1, 

49. 184.32. 136, 152. 136, 152. 136. 152, 128. 13 

2.128,168, 128, 168. :28. 166.120, 166,128.16 

5. 128. 168, 128. 168. 112,264, 120,318, 120 

60020 DATA 1,144,39.144,39,144,39,184.92 

,184.92.152.92,152,180. 152,100,152,103,1 

36. 132. 136. 140, 152, 146. 152. 148, 152. 148. 1 

52,148,184.104,16,104,32 

60036 DATA 104.32,112.44,112,44,120,48,1 

29, -SS. 136, 48. 136. 49. 144, 44. 144, 44. 152- 32 

, 152.32,152,16 

eeesB mt* 264,95.264.81.271.95,271.81, 

St, Hj 258.95,224. 87. 224, 81. 240, 87. 240, 81 

.208,87.256.87,272,1,272,7,280,1,1::, 

"i:. T-.iSH, -.296, 144,296, 121,80. 17,80.23,8 

?, 1 -,88,23.80.23, 38. 23. 56. 8 1,56. 87, 64, " 

.64. 87, 56. 87,64. 37. 38.24,32,1 

68860 DATA 1,3,34,11.12,38,3,6.10.11.; 

60676 DATA 176,92,136.112,134.60,183,* 
36. 164, 39. 184, 126. 13, 136, 16. 112. 130. 128. 
136,72, 138,86. "' 



CHASSEAUX' 
_SOUS MARINS 

Encore une chasse sous-marine ? Oui, mais la meil- 
leure jamais publiee, in the world ! 

J- Claude CUNIN 



7799 BASIC SIMPLE 



5 REM »••••••< 

10 GOTO 2710 
20 CALL JOYSTCi 



60 IF S3 THEN SO 

7u gosub eao 

BO CALL GCHARIG1.H; 



: (L.-96H 



>— zn 



62) =-1 THEN 3 

100 CALL HCHAR(G1,H1. 12B) 

110 CALL HCHARIB1.H1.L) 

120 IF L-40 THEN 2330 

130 IF L=153 THEN 2240 

340 IF L-154 THEN 3360 

150 IF (X-0)*IY=0)— 2 THEN 230 

160 CAR-CAR-. 1 

170 IF CAR 32. 9 THEN 190 

1Q0 CALL HCHARI24, INT(CAR) .32) 

190 IF CARO20.9 THEN 250 

200 FOR 1-1 TO JO 

210 CALL CDL0RI15. 1.1) 

220 CALL S0UNDI10. 900.0) 

230 CALL C0L0RU5.7, 1) 

240 NEXT I 

250 IF CAR=18.9 THEN 490 

260 CALL KEYd.M.N) 

270 IF (N— D*lQRE-0)--2 THEN 3! 

280 IF ( (D-G1)"2-«(E-H1) '2<-8X>- 



310 CALL SOUNDI-60, 1200,0) 



•81 



340 GOTO 20 

330 GRE-GRE-1 

360 GQSUB 780 

370 CALL SOUND(-10< 

3B0 IF L=-152 THEN ' 

390 CALL HCHAR (Gl.h 

400 GOTO 20 

410 CALL HCHAR1G1.) 

420 FOR 1-1 TO 30 

430 CALL S0UND(-12< 

440 NEXT I 

460 GOSUB BIO 



510 CALL SOUND(-100,300,C 
320 NEXT I 

530 CALL C0L0RI16.7, 1) 

540 FOR DELAI^l TO 3000 

DELAI 



560 1 

570 IF CAR<.18.9 THEN 610 

3B0 CALL CLEAR 

590 PRINT "VOUS ETES EN PANNE DE CARBU-' 

600 GOTO 620 

610 CALL CLEAR 

620 PRINT -IL VOUS RESTAIT" i Ti TAB<20)1 "| 

OUS MA-";i"RINS A TOUCHER. ":u 

630 GOTO 700 

640 FOR 1-1 TO 23 

650 CALL SOUNDI-100, 600,0) 

660 CALL SOUNDI-100, 900, O) 

670 NEXT I 

6B0 CALL CLEAR 

690 PRINT -VOUS ETES FORT VOUS AVEZ"::"1 

OUCHE TOUS LES SOUS MARlNS'-ii: 

700 PRINT "V0ULE2 VOUS REJOUER": i i "-1-NC 

N" 1: "-2-M£ME JEU"i :"-3-AUTRE JEU"i > 1 1 "VC 

IRE CHOIX 1 2 OU 3": : 

720 CALL KE» 

730 IF '»'E'49)»!KE^3U 

74'. ON VALICHRtU-IEI )GC 

7BO CALL CLEAR 



RIN 

/ STOP 



TABI12. 



B30 mes»-str»<sm> 

B30 CALL HCHAR! 24 
340 FDR 1 = 1 TO LEI 
350 CALL HCHAR<24 



COLt-1,32,2) 

KMESt) 

CQL*I,ASC(SEG«IME54, I, 



860 NEXT I 

B70 RETURN 

SSO CALL HCHAR (G2.H2. 32) 

B90 IF 61 G2 THEN 92u 

900 G2-G2+M- 

910 GOTO 930 

920 G2-G2-KK 

93u IF H1H2 THEN 960 



F 62,22 THEN 920 
I K: H THEN 940 
IF H2 23 THEN 960 
CALL GCHAR(G2,H2.MD 
IF (Ml 32)*(MI- 12B)— 2 THEN 890 
CALL HCHAR<G2.H2,40> 
RETURN 
CALL CLEAR 

PRINT TAB! 12i I "OP r IONS": ::::i"-l-N[ 
::' -2-M1NES":: "-3-MINE DERI VAN! E" I : 
IINES-MJNE DERIVANTE"i:i>: 
tRINT TA&I4) [ "VOTRE CH01X 1 2 3 OU 




> CALL kEYIO.KEY.ST) 

i IF (KEY- 49) + (FEY>32)=-l 
J S=VAL(CHR4<KEY>> 
CALL CLEAR 

> F«-"F8FCFEFEFFFFFEF8" 
I G»="F0F8F0EOEOE0FOFB'" 

> H*-"FEFFFFFFFEEBC080" 
) tt-"BOC0C0F0F8FCFCFF 

■ J«="1F3F7F7FFFFF7F1F" 
I L»«"0FLFOF07O7O7OFlF" 
J M»="7FFFFFFF7F1F0301 ' 
I N«-"0107070F1F7F7FFF" 

> B»-" FFFFFFFFFFFFFFFF" 



THEN 10U0 



710 


CALL 


CHAR(123,L«) 


wo 


CALL 


CHARI126,N») 


VTO 


CALL 


CHAR1121, !•) 


240 


CALL 


CHAR(122,F«) 


230 


CALL 


CHAR!123,H») 




CALL 


CHAR(124,8«) 


770 


CALL 


CHARU13,!*) 


TWO 


CAl 1. 


CHAR(114.Gt) 


290 


CALL' 


CHARU1S.H»J 


MM 


CALL 


CHARU16.N4) 


310 


CALL 


CHARtl 17, M») 


.WO 


CALL 


CHAR(11B,L4) 


330 


CALL 


CHAR(119,J«) 


.WO 


CALL 


CHARU05.I*) 




CALL 


CHAR(106,G»> 


,W) 


CAl i 


CHAR(62,H*> 


370 


CALL 


CHAA(97,B«) 


,WC) 


CALL 


CHAR(104,B») 


390 


CALL 


CHAR 11 12, B*J 


4<X) 


CALL 


CHARU20.B-) 


410 


CALL 


CHAR(63.B») 




RESTORE 2630 


450 


FOR 


-1 TO IB 


440 


DC AD 


CA,CA» 






CHAR(CA,CA«) 




NEXT 






FOR 


-1 TO 8 


4H0 


READ 


GR.COUL 


490 


CALL 


COLORtGR.COUL, 1 


500 


NEXT 


I 


310 


CALL 


CLEAR 


V". 


CALL 


SCREEN (G ) 


330 


PRINT "y" 


MO 


PRINT "hi t" 


sso 


PRIN 




560 


PRINT "xxpppq" 


i./u 


PRINT "xHxpppti" 



) PRINT "KpppDflJili " 

) PRINT "??xxpM«phj" 

) PRINT ■J??xx«xphhj"lTAB(26)i"l" 

) PRINT TAB(2H-) - ?7xxpohJ-|TAB(26)l 

) PRINT TABI3) I " > x (pp»»-| TAB (23) 1 "* 

) PRINT TAB(4)t"-ppppr-lTAB(24)I' , JJ 
'■"ITAB(23)1"- 



630 PRINT TAB13) 



660 PRINT TABC 



")x?f<"ITAB(23)|")4hpp 



670 PRINT TABf3>l"- K?l"lTAB«24lt"* w l 

6B0 PRINT rftlji?) ; ■■ W! -.--,. y -;TABi24> ! ■ 

690 PRINT TAB(2)l' , v«i<("lTAB!23H , "*i 

700 PRINT "tpxz"ITAB(26)i"vr" 

710 PRINT "uM"tTAB<25) t "~B" 

720 PRINT TAB12) 1 "> >" I TAB<24) I "-hi' 

730 PRINT TAB<2)I"i"iTAB(24)t">"III 

740 .CALL HCHARL24, 16.93) 

750 CALL HCHARI24. 17,94) 

760 CALL HCHAR 123, 18,92, 15) 

770 CALL HCHARI23, 17,91) 

7B0 RESTORE 2680 

790 FDR 1=20 TD 32 STEP 3 

800 READ CC 

BIO CALL HCHAR(23,1,CC) 

B20 NEXT I 

B30 CALL C0LOR(16,7, I) 

B40 HES»»"GRE:" 

B50 C0L=2 

B60 GOSUB 840 

B70 MES*="SM:0" 

BBO COL -9 

B90 GDSUB 840 

900 CALL VCHARIl.2,120, lO) 

910 RANDOMIZE 

920 FOR 1=1 TO lO 

930 A-INT(22»RND)+1 

940 B-1NT(31»RND)*2 

950 CALL GCHAR(A,B,C) 

960 IF IC'=96)*(C '126I--2 THEN 19: 

970 IF (C=63) + (C=62> — 1 THEN 1930 

9HO IF (A=15>-!8-9>--2 THEN 1950 

990 IF IA-2)»<B-20)--2 THEN 1930 
2000 CALL HCHARIA.B.IS2J 
2010 NEXT I 

2O20 FDR DELAI-1 TD 4000 
2030 NEXT DELAI 
2040 CALL C0L0RI16.1. li 
2O50 IF (S 2) + !S 4)=-2 THEN 2160 
2060 CM-1NT131"RND)*20 
2O70 FOR I- I TU CM 
2080 BM -INT ( 31-RND) *2 
2090 An-INT(2r«RNDI*l 
7100 CALL GCHARIAM.BM.DM) 
2110 IF ( (!DM)=96)*(DM-:-159) )--2) + lI 
) *(DM=6J)+ lDM-40)"-l THEN 2080 
21^20 IF (AM>15) + !BM'=9)*(BM-10)«-2 T) 
OBO 

2130 IF (AM-23)*( !IAM»22)'IBM-3)*(B) 
IBM-51 I— 2)*!BM-2)--i THEN 20B0 
2140 CALL HCHAR{AM,BM,40i 
2150 NEXT I 



M60 E 

2170 G'13 



2210 Gl-G 
2220 G2-2 
2230 H2=20 
2240 KK-. 1 



2250 CALL 
2260 D«INT(22»RNDX-1 
2270 E=INT(31«RND)*2 
22B0 CALL GCHARID.E.F 
2290 IF <F -96) + (F<-i: 
2300 IF IF-62»*(F-63)' 



2310 IF (D=15)*1E»9)— 2 THEN 2260 

2320 CALL HCHARfD.E, 153) 

2330 CALL S0UND(-3O, 440,0) 

2340 IF 0< >0 THEN 2430 

2350 0-0*1 

2360 CALL HCHARIG1,H1,32) 

2370 P-INTf22»RND)+l 

23B0 0-INT(31»RND)*2 

2390 CALL GCHAR!P,0,R) 

2400 IF <R>-96)*(R<-139)»-2 THEN 2370 

2410 IF IR-67HIR-63I + IR-40) — I THEN 237 



2470JF (P-15) + lO=9: 

2430 CALL HCHARIP.Q, 154) 

2440 CALL SOUND (-30, 440, i 

2450 CAR-34 

2460 GRE=50 

2470 GOSUB 7 BO 

2480 FDR 1-1 TO 15 

2490 CALL HCHAR124, 17+1 , 

25O0 CALL SOUND(-100, 110 

2310 NEXT I 

2320 GOTO 20 

2530 CALL HCHARtGl 

2340 CALL SOUND(20O,-6,O) 

2530 RESTORE 2690 

2360 FDR 1-1 TO 12 

2570 READ TEN, SON 

25B0 CALL S0UND<TEM,SON,0 

2590 NEXT I 

2600 FOR 1-1 TO 500 



-2 THEN 2370 



4 V, ) 



2610 



I 



3060 
3070 
S080 

7.090 
3100 



) DATA 13,19,126,13,20,12. 

DATA 12.8,5,8.3,8.15,6, 

FDR 1-10 TO 14 

CALL COLDR< I, l,l> 

NEXT 1 

CALL C0L0RU3.6.6) 

CALL COL0R115,6,6) 

CALL C0LOR(16,6,6) 

CALL COL0R(14,6,6) 

FOR 1-10 TO 15 

CALL SCREEN (B) 

READ CARA.FON 

CALL COLORfl, CARA.FON) 



13,23, 118, 

<,6. 13, 15 



I 
3180 RESTORE 357(.i 



3210 FOR J-l TO 3 

3220 READ CA1,C0L1,CA2,C0L2,CA3.C0L3,CA4 

. CDL4. CAS. C0L5, CA6.C0L6 

3230 FOR 1-1 TO 3 

3240 CALL HCHAR(LH+I,CDL1< 

3250 CALL SOUND 

3260 CALL HCHAR 

3270 CALL SOUND 

32B0 CALL HCHAR 

3290 CALL SOUND 

3300 CALL HCHAR 

3310 CALL SOUND 



2620 GOTO 490 

2630 DATA 12B,0000007EFF7E,136,B14224081 

02442B1,153,6060F09C94F4F2FO, 154.6O60F09 

C94F4F2F0 

2640 DATA 144.9924C39999C32499, 152, 1018F 

FFF,40,COC,145,B11270FA7E5E438B, 59.B7A5B 

595B70001FF.60.B793B5A5B70001FF 

2650 DATA 61 .77557515770001FF, 64, 7745755 

5770001FF, 87, 7715351 577000 IFF, 9 1,0705050 

507000101, 92, OOOOOOOOOOOOOOFF 

2660 DATA 146,FFFFFFFFFFFFFFFF,93,D595D5 

939D,94,AO20AO2OB 

2670 DATA 13,16,14,2,15.7,2,14,9,4,10,3, 

11,13,12,11 

2680 DATA B7, 64,61, 60,59 

2690 DATA 250,196,750,262,250.196,750,26 

2,300, 262, 373, 262,230, 262 

270O DATA 373.262.123,196,373,262,230,33 

0,2000,392 

2710 CALL CLEAR 

2720 RESTORE 2940 

2730 FOR 1-117 TD 138 

2740 READ CA« 

2750 CALL CHARU,CA») 

2760 NEXT I 

2770 FOR 1-1 TO 10 

27B0 READ CA.CAC 

2790 CALL CHAR(CA,CA«) 

2800 NEXT I 

2B10 CALL SCREENI21 

2B20 CALL HCHAR ( 15. 1 , 138, 320) 

2B30 CALL MCHAR(20,I9. 

2B40 CALL HCHAR (21, 19,135, 

2B50 CALL HCHARU3.10. 

2B60 CALL HCHAR (14, 11, 

2B70 CALL HCHAR (12, 12, 124, 

2BSO CALL HCHARI13.22, 124, 

2B9U RESTURE 3O0O 

2900 FOR 1=1 TO 32 

2910 READ LI.CO.CA 

2920 CALL HCHAR(LI.CO.CA) 

2930 NEXT 1 

2940 DATA FF7F3F IFOFO7O301 , FFFF IF IFFFC3C 

3FF . 01 03O70FOFUF0F0F , OFOF0FOFFFC3C3FF , FF 

FFFFFFFFC3C3FF.FFFFFFFFFFFFFFFF 

2950 DATA B0COEOF0F8FCFEFF, 0OOOO0O0FFC3C 

3FF,0,000000ouFFBD8181 , 0,OlO3O70FlF3F7FF 

2960 DATA FF7F3F1FOFO7O301.8OB0B0B7FFFFF 

FFF,FFFFFFFF87SJB0BO,O31FFFFFFFFFFFFF,FF 

FFFFFFFFFF 1F03, FFFFC7C7FFFFFFFF 

2970 DATA FFFFFFFFFFFFFFFF, 6060606161616 

161,001010101010101,0 

2980 DATA 144.01030F070301, 145.0103071F0 

CI 22 10 1,1 46, FFFFFFFFFFFFFFFF. 147.FFFFFFF 

FFFFFFFFF, I32.04040B099F5F3F3F 

2990 DATA 153.2061E2C6DCFCFSE. 134.F8FBFC 

FEFFFCEOB, 155.EOEOFOF09B8C02, 156.FF7F3E2 

E260301, 1 1 1.0O0O1B3C7E7E3C18 

3000 DATA 20,16,128,21,16.129,20,17,130, 

21, 17, 131,20, IB, 132.21, 18, 133, IB, 22, 136 

3010 DATA 19.22.135,19,23,135.18,23,137, 

20,27, 144.21,27, 145, 19.28, 152,20, 2B, 146 

3020 DATA 21, 2B. 147, 22, 2B. 156.19,29, 153, 

20,29, 154.21,29, 153, 13,9,117, 12,10,118 

3030 DATA 14.10,117,12,15,118,11,16,119 

12, 16, 120,11, 17. 122. 12,17, 121, 13, IB, 



77=.: 



CALL SOUND 
3340 CALL HCHAR 
3350 CALL SOUND 
3360 CALL HCHAR 
3370 CALL SOUND 
3380 CALL HCHAR 
3390 CALL SOUND 
3400 CALL HCHAR 
3410 CALL SOUND- 
3420 CALL HCHAR 
3430 CALL SOUND 
7.440 CALL HCHAR 
3450 CALL SOUND 
3460 CALL HCHAR 
3470 CALL SC 
34B0 IF J.l THEN 3540 
3490 CALL SOUND i 
3500 CALL HCHAR 
3310 CALL SOUND 
3520 CALL HCHAR 
3530 CALL SOUND 
3540 NEXT I 
3330 CALL SOUND' 
3560 NEXT J 

3570 DATA 72,5,78,32,67 
, 17,69,9,77,2B,B3,8, 
35B0 DATA B3, 7,82,30,63 



,col; 



l.CAl! 



4,B3,33,85,16,E 
65,29,B3,21,79-,20 

,83, 19,65 



3590 EF-32 

3600 CALL HCHARI13,27,37) 

3610 FOR 1-13 TO IB 

3620 IF K>16 THEN 3650 

3630 EF-13B 

3640 CALL COLOR ( 10, 12, 6) 

3630 CALL HCHAR ( 1-1 ,28, EF) 

3660 CALL HCHAR( I , 2B, 1 1 1 > 

3670 NEXT I 

36BO CALL HCHAR(I~1,28.EF) 

3760 eALL §eUNB(-2&8,-?,6i 
3710 CALL COLOR (1 
3720 CALL COLOR < 1 
3730 CALL COLOR (1 
3740 CALL COLOR! 1 

3760 FOR 1-1 TO 1 
3770 NEXT I 
37B0 GOSUB 4000 
3790 GOSUB 4000 



II NT ' 



";TAB(5)i"APF'UVER SUR UNE TOUCHE" 

3810 CALL hEV(0,KEY,ST) 

3B20 IF BTOl THEN 3810 

3B30 CALL CLEAR 

3B40 CALL SCREEN! 11) 

3B30 PRINT TAB(4)i "CHASSE AUX SOUS MARIN 

S~:: : "ATTENTION LES SOUS MARINS NE"::"SE 

RONT VISIBLES DUE DUELOUES":: 

3B60 PRINT "SECDNDES.A VOUS DE LES";. "RE 

TROUVER ET DE LES TOUCHER. ":: "VOUS AVEZ 

150T DE CARBURANT": : 

3870 PRINT "ET 30 GRENADES. VOUS POURREZ" 

:;"VOUS RAVITAILLER SUR 2 BASES" :: -MAIS 

CES BASES SON! CACHEES":: 

3890 PRINT "PENDANT TOUTE LA PARTIE."n 

3B90 PRINT " 

":TAB(5) t "APPUYER SUR LINE TOUCHE" 

3900 CALL KEYIO,KEV,ST) 

3910 IF STOl THEN 3900 

3920 CALL CLEAR 

3930 PRINT "VOUS POURREZ LES DETECTER":: 

"GRACE A UN ECHO RADAR. DES" :: "QUE VOUS E 

TES RAVITAILLE,"il 

3940 PRINT "LA BASE CHANGE DE POSITIOt 

::"ELLES NE SERONT VISIBLES": : "OWEN f 

DE PARTIE. ":l 
3950 PRINT "UTILIBEZ LE JOYSTICK Nl POUR 
":: "VOUS DEPLACER ET LE BOUTDN" i i "ACTION 

POUR TIRE»R.*'<I 
3960 PRINT TAB(B);"BONNE CHASBE ! ! " 

-; TAB IS) i "APPUY 

ER SUR UNE TOUCHE" 
3970 CALL KEY(0,KEY,ST> 
39BO IF STOl THEN 3970 
3990 GOTO 1030 
4OO0 T-300 

'10 CALL SOUND. 
4020 CALL SOUND 
4030 CALL SOUND 
4040 CALL SOUND 
4050 CALL SOUND 
4060 CALL SOUND 
4070 CALL 
4OB0 CALL SOUND 
4090 CALL SOUND 

100 CALL SOUND 

HO CALL SOUND' 

120 CALL 

130 CALL SOUND' 

140 CALL SOUND 

130 CALL SOUND' 

160 CALL SOUND' 

170 CALL SOUND. 

180 CALL SOUND' 

190 CALL BOUND' 
4200 CALL SOUND' 
' CALL SOUND' 
4220 CALL SOUND' 
4230 CALL SOUND' 

RETURN 
4250 END 



T»1.5, 523, C 
T/4,392,C 
T/2,330,( 
T/7, 392, C 



T». 73,387,1 

T/4,659,C 

T*. 73,698, C 

T/4.698.C 

T».75,69B,( 

T/4.639.C 

T,3B7.0,49< 

T«.73,523.( 

T/4,3B7,( 

T».73.659.( 

T/4, 639, ( 

T». 75,659, ( 

T/4,SB7,( 

T»3,S23,( 



',247,7) 
,247,7) 
"',247,71 
',262,7) 



UFOi 



Enferme dans une elrange caverne. vous devez ra- 
masser un maximum d'objets pour pouvoir en sortie 

- Facile! 

- Pas tan! quca. tu ferais mieux de (aire gaffe a tes 
reserves d'energie qui diminuent de plus en plus... 

L. FRANCOIS 



i SO SUB 3: 00 TO 14 

•«#INITIALISATION«*# 

3 LET x-15: LET y-10 

4 LET »>1 

5 LET ft -60: LET » = 15 

6 LET op-1: LET Oi»l: LET ij. 
1: LET 0-1: LET ICOrteB: LET • J, c 
1; LET Si«l: LET tr«l: LET r«-l: 

LET Ui-1: LET iu-1: LET i-l; LE 
T r»l: LET t«l LET p»l 

10 BORDER 1: PAPER 0: INK 6. C 

13 RETURN 
1* 00 TO 18 

IB FOR zai3 TO 3: PRINT RT Z,0, 
PAPER a, " 

: NEXT z 
16 PRINT AT 2,1, INK 6, PAPER 
0;"E3S. ",»,AT 2,9;" Litr.": PRI 
NT AT 1,1; PAPER l; " " ; fl 

T 1,1, "SCORE; '■; seort; 
1? RETURN 
IB REM 

****** tGRRPHIGUE3«**»i 
19 FOR Z-0 TO 7: READ a: POKC 
USR "fl-'+I.q: NEXT I; DATA 0.BIN 

01110101. bin 01000101, bin 011001 

01, bin 01000101 .bin 01000111,0,0 

30 FOR z-0 TO 7: READ q POKE 

usr "•"♦*. « j next 2; data 0,0,0, 
3, bin 00111100, bin 01000010,255. 
bin 01111110 

21 FOR Z»0 TO 7: READ q: POKE 
USR "tT'+z.q: NEXT Z: DATA 0.BIN 

01110100, bin 01000100.BIN 0I1001 

00, bin 01000100, bin 01110110,0,0 

23 for 2>e to ?■. read q poke 

USR "•"+!, q: NEXT 2: DRTR BIN 00 

aiiaaa.BiN 00111100,355,8™ 1311 
1101, bin leimai .sse.oiN 000110 
00, bin 00111100 

24. FOR z-0 TO 7; RERD 3; POKE 
USR "l"+I,q: NEXT I; DATA 0.BIN 

00010000, bin 00013003, bin 331113 
oo.bin 00111000 sin 00111000,6™ 
00111000, bin 00111000 
26 for z-0 to 7: read 3: poke 
usr "iv'+z.q: next i: drtr bin 11 
000000,6™ 11001100, bin 10010010 
.bin 11100010, bin iieeaaie.BIN 1 
11330B1. bin 10100000. bin 1010000 
I 

30 FOR z-0 TO 7: RERO q: POKE 
USR ■'»" *Z,q: NEXT fi DRTR BIN 01 
031000, BIN 00100180, BIN 00130100 
,BIN 03010013.BIN 00310310, BIN 
0100100, BIN 00130100, BIN 0130103 
I 

33 COR Z-0 TO 7: READ q: POKE 
USR "f'+Z.q; NEXT 2: DATA 358,81 
N 11111110, BIN 11111100, BIN 1111 
1000, BIN 11110000, BIN 11100000,6 
IN 11000000 , BIN 10000000 

36 FOR z*o TO 7: READ q. POKE 
USR ■■*■■*!, q- NEXT I[ DRTR BIN 10 
011011, BIN 01101010, BIN 10111101 
,BIN 00111111, BIN 11111110, BIN 1 
3111111, BIN 10110100, BIN 0101011 


38 FOR 2-0 TO 7: READ 3; POKE 
USR ■■*■' +I,q NEXT 2: DATA BIN 10 
O01011, BIN 01100100, BIN 00011101 

.BIN 10101301, Sin 0i0nii0.BIN 1 
0101010, BIN 00100101, BIN 0101101 
a 

■0 TO 7: READ 3: POKE 
q: NEXT I: DATA 170,85 
: 0, 85, 170,85 
.. _.«0 TO 7; READ q; POKE 
USR "-0"+2,q: NEXT 2: ORTR BIN 00 
000100. BIN 00001110, BIN 00011111 
,BIN 00010101, BIN 11110101, BIN 
0310101, BIN 00011111,0 

45 FOR z-0 TO 7: READ 3: POKE 
USR "E-tZ.q: NEXT XI DRTR 255, BI 

n 10000000, 

00010001- *' 
00,385 

4? FOR 2-0 TO 7; RERD ' 



0001103, BIN 00001000, BIN 0000110 



FOR Z-> 

"W*t ,q 

i^,8S, 17B,wj,i 
40 FOR z«0 TO 



50 


CLS : GO 


SUB 


"■.PRINT. HT. A 


*4fcjj| ^VgFSFBF&K fi; PRPER 


ar 


«ffiW£r 


*,«, 


IKK fi PflPSfU 


li"5 


PRINT PT 


11,! 


; INK s, PHPJJi 



75 FOR a-4 TO 21- PRINT AT 4,0 
, PRPER 1, INK »;"£"! NEXT • 

77 PRINT AT 8,10; PAPER 1, "E" 

80 PRINT RT 10,14; INK 7; PARE 
R 2, FLASH 1, 'TUU 1 ' 

86 IF *»«1 THEN PRINT AT 6,1, 
INK 3;"-6" 

S7 IF to-l THEN PRINT AT 7,10; 
INK 5, "I" 

95 REM **MUT DE LA SOUCOUPE** 

99 PRINT AT K.UJ "." 
100 IF INKEY»-"6" THEN GO SUB 5 
19 



30 



110 IF INKEY«="7" THEN GO 5UB 5 



120 IF INKEY|*"8" THEN GO SUB 5 



130 IF INKEY|-"5" THEN GO SUB 5 



■ '•-»■- -. rnim ~, : — , 9, » . L^l = 13, 

141 IF K10 THEN PRINT AT 3,6,0 
■AT 3,7, ft, 
145 IF i«0 THEN GO TO 9000 
147 IP ,cor«.100 THEN GO TO 911 



153 GO TO 100 

155 REM **DEF. DE5 PIECES** 

160 IF n.l THEN GO TO 200 





161 IF n-3 THEN GO TO 350 

162 IF fi=3 THEN GO TO 300 

163 GO TO 163 

300 IF P-l THEN GO TO 6 

301 IF p-3 THEN 00 TO 1 
80S IF P-3 THEN GO Tr * 
350 IF p-l THEN 80 Ti 
391 IF P- 2 THEN GO TI 



301 IF P-8 THEN GO TO 4000 
303 IF P-3 THEN GO TO 4500 

500 IF RTTR (x,y-l)-14 THEN GO 
TO 9000 

501 IF RTTR (x,v-D"3 THEN 00 S 
UB 5000: LET yay-1: PRINT AT . . , 
."^■'jflf X.Wtli" " ; BEEP .01,15: 
RETURN 

508 IF RTTR (X,.-1J«5 THEN GO 6 
UB 7O00: LET U«V-1: PRINT AT x,y 
;"_>■', AT x,y*l;" ": BEEP .01,15: 
RETURN 

503 IF ATTR (X,.-1)b70 THEN LET 
op«0: LET y»y-i: PRINT RT X,yj" 

«>";AT X.M+li" ": LET icortxtqri 
+10: PRINT AT l,7,SC0ft,: BEEP . 
01,15: RETURN 

504 IF V"0 THEN LET P«P-1: LET 
V>30: GO TO 160 

505 IF <,>-l THEN LET y«M-l: PRI 
NT AT x.yi'V.AT x.y*!," "; RETU 



1) -14 THEN GO 

It >3 THEN 00 S 

,1 PRINT RT X,y 
BEEP .01,15: 

11 .5 THEN 00 S 
: PRINT RT x,y 
BEEP .01,15: 

1) -2 THEN GO T 



. LET P"P* 



LET 



RET 



RN 

510 IF ATTR (x ,i 
TO 9000 

511 IF ATTR (X ,\ 
UB 5000: LET UBUi 
; " # ";flT x,y-l, " ' 
RETURN 

612 IF RTTR (X ,\ 
UB 7000: LET y»y^ 
I , V , ;flT x ,y-l; " ' 
RETURN 

513 IF ATTR IX ,\ 
9000 

514 IF y-30 THEI 1 

S-0: 00 TO 160 
16 IF y <-30 THEN LET y< 
INT RT x.y, ■ i *",RT x ,y-l, ' 
URN 

519 IF RTTR IXtl,y)«151 THCN GO 
SUB 6000: RETURN 

520 IF RTTR (x+l.vl-14 THEN GO 
TO 9000 

521 IF ATTR lxtl,y)»3 THEN GO 5 
UB 5000: LET X-X+i: PRINT AT x.y 
i™»™Twf X-l,y," ": BEEP .01,16: 
RETURN 

522 IF ATTR (X+l,y)-5 THEN GO 6 
UB 7000: LET x-X+1: PRINT AT X.y 
,^-",AT X-i,Vl" "l 6MP .*t,i8: 
RETURN 

533 IF X-21 THEN LET i-i+1; LET 
X>4: GO TO 160 

624. IF x<31 THEN LET m-i PRI 
NT at x,y; •'*■•; AT x-l,y;" ": RCTu 

-l.y) -14 THEN 00 



IL MflNOUE LES CODES MACHINES 

255 13 10 128 255 255 355 855 

256 66 63 134 60 16 153 106 
68 66 32 161 84 68 60 64 
161 66 124 66 144 153 59 64 
66 34S 56 69 67 60 16 60 

17 160 16 33 
64 14 8 239 6 32 54 

355 25 54 255 176 237 62 44 
16 245 236 36 13 32 237 33 
71 6 163 54 254 63 31 

133 111 54 137 214 31 111 205 
233 127 16 340 33 96 72 6 

16 54 205 233 187 16 249 

17 126 33 116 73 6 9 

36 119 26 86 36 16 349 201 

43 136 134 237 75 138 134 303 
164 833 165 180 145 56 46 62 
76 50 33 ia5 63 166 SO 50 
ia5 180 145 46 17 343 197 339 
303 76 125 235 193 241 43 37 
300 36 139 126 34 336 343 197 
339 305 166 136 235 193 341 43 

37 200 36 34 381 63 166 50 

33 185 62 76 50 50 125 120 
65 79 24 396 305 136 137 43 
144 186 135 60 173 303 111 40 
17 6 4 205 163 127 16 851 

68 -138 50 139 1S4 193 193 193 
193 301 56 136 134 303 127 32 
20 62 354 6 8 190 40 8 
305 223 127 16 346 195 809 126 

205 154 125 24 13 44 62 187 
6 6 199 40 8 205 233 187 

16 346 195 146 186 803 154 133 

34 327 56 138 124 198 138 50 

136 124 205 146 127 201 205 136 

137 43 144 126 124 330 7 33 

35 56 139 124 203 127 38 5 

206 183 127 24 7 6 6 205 
222 127 16 251 56 146 126 51 
46 7 126 264 355 40 14 34 

33 314 313 48 5 136 354 255 
40 3 44 34 337 58 139 134 
198 138 50 139 124 305 146 137 
58 139 134 203 127 194 66 187 
302 17 127 33 95 72 6 16 
54 205 232 127 16 249 201 
60 125 255 355 

356 355 136 60 

30 63 127 138 137 138 
137 128 137 136 63 30 
15 31 188 63 193 63 193 
63 192 63 193 31 138 15 



7 126 15 193 31 834 31 334 
31 224 31 234 15 193 7 138 
3 192 7 224 15 240 15 240 

15 240 15 240 7 284 3 193 
1 224 3 240 ? 346 7 248 

7 24S 7 246 3 240 1 234 
240 1 246 3 258 3 353 

3 353 3 353 1 248 340 

130 252 1 254 1 354 

1 354 1 254 253 130 
O 60 O 126 355 355 
355 355 136 60 

95 73 112 186 48 144 126 237 
91 146 136 303 183 40 6 803 
1B7 44 34 144 186 6 8 86 
78 169 79 183 198 16 95 86 
169 119 123 214 15 95 44 26 

78 169 79 133 196 16 95 36 
169 119 123 214 15 95 45 305 
333 187 16 219 123 50 146 188 
201 48 144 136 237 91 145 136 
133 198 33 6 303 351 45 

34 144 126 6 8 36 75 169 

79 133 314 16 95 36 169 119 
183 196 17 95 44 86 78 169 
79 133 814 16 95 86 169 119 
183 198 17 95 45 305 333 187 

16 819 133 314 33 50 146 126 
301 43 144 136 337 91 146 136 
389 305 186 137 34 144 136 225 
6 8 197 26 71 136 168 119 

44 33 36 79 126 169 119 205 
188 137 125 169 119 45 136 163 
119 305 323 137 205 328 187 36 
193 16 323 201 48 144 126 337 
91 146 126 229 205 222 13? 34 
144 136 335 5 8 197 35 71 

136 168 119 44 36 26 79 126 
169 119 305 283 137 136 159 119 

45 126 188 119 26 193 16 239 
201 33 160 50 17 140 134 6 

6 839 14 5 36 119 44 19 

13 33 349 325 36 16 242 201 

6 2 14 255 13 33 263 16 

349 201 345 197 63 IB 311 254 

6 255 16 254 63 2 211 254 

193 241 201 245 197 5 255 62 

18 311 354 73 13 32 233 62 

2 311 254 72 13 32 253 16 

336 193 241 201 245 197 213 124 
254 64- 40 13 254 72 40 4 
254 BO 32 13 125 254 33 56 

4 184 196 6 103 125 196 224 
111 37 309 193 241 301 345 197 
213 134 254 87 40 13 354 79 

40 4 364 71 33 13 133 196 
33 56 4 134 196 348 103 133 
196 32 111 36 309 193 841 801 



330 IF RTTR 
TO 9000 

531 IF RTTR 
UB 5000: LET ) 
:'■»". AT x + l,y; 
RETURN 

538 IF RTTR IX-l,y)-6 THEN 00 5 
UB 7000: LET x-X-1: PRINT AT ' 
; "_>■•; AT x+l,y; " "1 BEEP ~ 
RETURN 

533 IF x-4 THEN LET ■.-■-!: LET 
x-21: 00 TO 160 

534 IF x>4 THEN LET X -x - 1 PRIN 
T RT x.y; 'v. RT H+l,\ 



,,18.0; PAPER 1, "Ec 

30: PRINT AT 2 , 
NEXT Z 
PAPER 
PAPf 



l,y ] -3 THEN GO 
-i: PRINT RT x, 
": BEEP .01,16: 



01,16: 



RETUR 



800 REM tftDESS. DES PIECES** 
00 CL5 : GO SUB IS :. fBl-fL fit .» 

,. a . . pap e r , , \ , jfifcij 2ff '• '■'"'■'■ ■■ ■■■■ ■■ ,7 

0. PRPER ^jJS^ ft ' **» 



15. PRPER I, IN 



NtxT -1 



|Mj PRIN T RTai.e; PAP 
gSSaEESc'-.AT 81,14, PA 

g THTttftj PApeR 1, 

2565 FOR W-10 TO 16: PRINT AT », 
31, PRPER 1, "£": NEXT u 
3568 IF Ui-1 THEN PRINT AT 23,13 
, INK 3; "*" 
2370 00 TO 99 

3000 CLS : GO SU5 IB: FOR a-4 TO 

21: PRINT RT • , 30 7 PRPER i,"£"; 

AT N,3l; PRPER l;"£": NEXT ■ 

ZSi THPflPl; "EErEESSEr" 

3030 FOR -■4+0 16: PRINT AT «,i 

5, PAPER 1,'EE": NEXT u 

3081 FOR u-llTO Si- PRINT AT w. 

35, PAPER 1,"EE": NEXT ui 

3030 PRINT ATTTl,0; PAPER I, "E" 

3035 PRINT RT 13.0; PRPER 1;'?", 

AT 14,0; PRPER li "5" 

3040 FOR -.IS TO 16. 



PRINT RT --,30, PAPER l.'f.AT 1 
35; PRPER II "S": NEXT W 
4510 FOR w>4 TO 31: PRINT RT V 
1, PAPER 1; "E": NEXT u 
4515 FOR U»l8 TO IB: PRINT AT 1 
■» PAPER 1. "EE" NEXT 11 ,_ 

~3INT AT4,S. PAPER li. "Pr. 
16,0; PRPER li'' SEE 
: FOR a-4 TO 31TR 
PAPER 1; "E": NEXT I 




PRPER 



"SPff 5 



AT 31,14, PAPER 
— AV'. ai i PAPER 



.. fo . FftP S P , , * , 






I B TO 16 



PRINT AT 



4533 FOR a-4 TO 9: PRINT RT 

PAPER 1, "E" : NEXT v 
4530 PRINT RT 10, 4i INK 7 

3; FLASH 1, "««" 
4640 IF tCOf«<60 THEN FOR 
30: PRINT RT »L,30. INK I 
NEXT K 
4645 IF Q-l THEN PRINT AT 15,14; 

INK B;"*" 
4330 GO TO 99 

5000 IF (l-l THEN GO SUB 5100 LE 
T iCOf«-tCOft*10; PRINT RT 1,7;» 
COTl, ; RETURN 

5005 IF H-3 THEN GO SUB 5150: LE 
T icort-tcort+io 

■■tar* 



tJFT&i FSH a -t& TO 1 1: PR I NT AT a. 

oHi^^iwf^ir^R 33 

•'.AT a, 31, PRPER 1;"E": NEXT <■ 
1530 FOR a-18 TO 31; PRINT RT 



0; PAPER l; 

NEXT a 
3045 IF iU-1 THEN PRINT AT 14,1, 

3047 IF OP-1 THEN PRINT AT 10,36 
, INK 6, BRIGHT 1. , " T" 
3050 00 TO 99 

3500 CL5 : GO SUB 15: FOR w -4 TO 
21 PRINT AT a.0, PAPER li 2"i8 
" PAPER li'-E": NEAT JL Pfe 



LE 

,7, * 



RE 



1 a,i<0, KPtr-cn a, x 



1 8S S4C* 1 ™ H PRINT BT '■"■ jSS'fViSi-rc '"" :B PpiN^F?!ic 

.±r^ 2t 2_ DODFn 1 : *-C" - wexT u 




3330 GO TO 99 

4000 CLS ; GO S UB 15 , P.R.I NT AT 4 
.0, paper i, ■■EESHSSEEEE" .«t 4 
II; pa pfp n-ffiW Vflt *'il; PAP 
ER 1,"S"^ 
4010 ft.. 
PRPER 1 
NEXT a 



5010 IF H-3 THEN 
T icor«-icor«+l0 
can; : RETURN 

5100 IF p-l THEN 00 SUB 6500 
TURN 

5101 IF P-8 THEN GO SUB 6550 
TURN 
5103 IF P-3 THEN GO SUB 6600 

5150 IF P-l THEN 00 SUB 6650 

6151 IF P-3 THEN 00 SUB 6700 

5153 IF P-3 THEN 00 SUB 6730 

5300 IF p-l THEN GO SUB 6800 

6303 IF p-3 THEN GO SUB 6850 

6303 IF P-3 THEN GO SUB 6900 
TURN ,„,„ „ .,, 

6001 PRINT AT 8.9-1; INK 7: ™|v 

6003 FOR d«» TO 60; PRINT AT 8,6 



, PAPER l,"E": NEXT U 

3025 PRINT BT 31,10, PRPER 1;™E" 

8036 IF ft-1 THEN PRINT RT 17,31 



3030 GO'TO 99 

8500_CL5_ : GO , 5 up, 1,5, ; PR I NT^ AT 

4^21 



PAPER 



2510^oir^ 

, PAPER 1 

2520 FOR : 

PAPER 



PRINT AT I, 14 
NEXT I 
Z-57J0 30: PRINT AT z,2 
cp 1 , "TV" NEXT r 

2530 FOR ZiOOJU 

PAPER !,■"=*= 



,PP,IiMJ, r fl T ! N g x 



FOR M< 
-- PAPER 1, 
"£" : NEXT 1 
4020 FOR w< 
30, PAPER : 

4030 PRINT 

4031 PRINT 
;AT 16,21, 

PAPER 1,"J 

4035 IF r-: 
ink 8;"#" 

4036 IF oi' 
, INK 5, 1 
4040 GO TO 
4500 CLS : 



1,3 



15 TO 16 PRINT RT u , 
, "EE" NEXT a 
ATT, 22, PAPER 1, "E" 
AT 16.19, PRPER I,*?" 
PRPER 1; "£", AT 17, 19, 

^HEN PRINT AT 7,23, 

1 THEN PRINT AT 16,80 



, BEEP .. 

6003 LET ft -50 

RT X,9-ii" 

6010 RETURN 

6500 LET a»-0 

6550 LET si-0 

6603 LET ir-0 

6650 LET r«-0 

6703 LET Ui -O 

6750 LET iu-0 

6600 LET i-0: 

6850 LET r-0: 

6900 LET 

7000 IF 



. NEXT 1 
EEP .1,30: 
:ETURN 



RETURN 

RETURN 

RETURN 
O: RETURN 
O RETURN 
0: RETURN 
: RETURN 
: RETURN 
: RETURN 
THEN LET JO- 
" PRINT AT 



core neon *10 
RETURN 

* if p.: 

7003 IF P-3 THEN LET 0-0: LET ftC 
ore-ftCOrt+10: PRINT AT l,7,SC0r« 
RETURN 



TAG 



HECTOR 



TAG, soit ga veut dire "The Assassignation Game", et Vous allez done negocier un contrat avec un bon pi- 

e'est un film genial, soit ca veut dire "Techniques lote, choisir un mecanicien, conclure un accord avec 

d'Avant-Garde", et ca devient un jeu non moins genial, un fabricant de pneus et un constructeur de moteurs. 

Vous venez d'heriter de votre Tonton Christobald et Le jour J arrive... vavavouuummm !... Ca decoiffe un 

voire amour inne pour la competition automobile vous max ! 

incite a realiser un vieux reve: diriger et posseder une 

ecurie de course. J. Philippe PIAT 



A suivre: 

En raison de la longueur in- 
habit velle du listing nous 
passerons ce programme 
en deux lois, 



'TAG [ 



VICTOR IIHR + BASIC ] 



229iHI=10000iMipei Wl=4930:saund3\ 4- 
50 output "TAG", 110, 140, 1 
.0 output"Techniqua»"',90, 130,2 
tpuf'iTAvant", 93, 120,2 



ir 30000*" 
int"2>DUCAROUGE pour 4O0O0*" 
int"3>BARNARD pour 30000»" 
-int"4>FORGHIERI pour 20O0O»" 



40000 dol 1. 



F.F.S.A-.Pari, 
t*»"iCCs-instr! 
*+RE»40O0O[ "»" 



920 tfE>4thengoto910 
930 dataPorsche Tag, Re 
940 restor»930 



480 ( 



tilot 



490 print"l->PIQUET Nelson pour 100000»" 
300 print"2>LAFFITE Jicqun pour 4O0O0I" 
510 print "3>R0SBERG Keke pour 60000* 
320 print"4>PROST Alain pour 80000*" 
330 pnnt"5>LAU0A Ni k i pour 90000«" 
340. pr.nt"6>SURER Marc pour 30000»" 
3SO print"7>AL_BORETO Michele pour 3O0O0S* 
560 print"B>ARNOUX Rana pour 700004" 



3BO PR-PR»DD»Re 



990 PR-PR-CHI 10000 

1000 print"Il voum reste 

1010 HPR<0tnengoto3020 



lie ALBORETO.Rene ARNO 




1 f PR^OthengotoSOrO 












restorell70 






forI = ltoCireadPAine*i 






datal3, 12,9,6 












forl-ltoDireadlNmox.' 






data30,27,24, 18 












forI"ltoE:read(1QineK< 






d«t«30,22, 15 






restore 1260 






forl-ltoFireadPNinex' 






i f ¥0 >OthenPA«PA- YO* 2 






i t ¥0 1 OthenMO"Ha-YO*2 


=N-PN-YD*2 




ifPA<0th»nPA=Ot If IN(OthenIN-0 





320 i + rtO<0' 



*iO2-INi03-r0i04.pr 



:o£"iESiPT=Pl 



I22-ES)«20 



1+U0>5the 


nUO=3 












03-03-UO 














go*ub350( 














H03— 1th 




930 










XY-rndfO, 


00) 












if XY>UO*l 


>thengotoi330 












depar 






"iPT 


■f* 


4-2000 


BO-BO+1 














goto 1620 














Y7-rnd<0, 














if¥Z>50tl" 




570 












ie du nombre 


















PT*B0O 




gotol620 














if¥Z>B0th 


•ngoto 


600 






























-PT*300 


goto 1620 


















ure cale et 


11 gal 


MANSE LL 1 




uru amt fi ■: 










goto4820 














gosubWl 
















■ arabo 












211,21,1 










prinfeet 








•at 




nontae 


»nta una 


grande 




eons 


MHMt 


Lor 


d ' esse 



A SUIVRE. 



&M&&&, 



DEVI N OS 

Ne jetez plus vos dominos. A defaut de caler votre 
vieil ordinateur branlant, vous pouvez toujours vous 
en servir pour tester votre Q.I. ou mieux... celui de 
vos copains. 

Francis TEREYGEOLS 



TRS80 




TJTRE : DEVINOS 
AUTEUR : TEREVGEOL FRANCIS 

IB SB MODELE I LEVEL 1 1 »=»=.•=■ 



9 REM ?????7 RESERVATION ESPACE MEMOIRE J 1 

10 CLS:CLEAR1000:DIMD1 ( 12) 

is rem r/.y.r.v.y. protection sous-prg musical 
20 zz*=i" 



30 AZ=VARPTR<ZZ*) 

40 Z1=PEEK(AZ U ) :Z2=PE£MAZ + 2) : AD=Z 1 ■'■256*Z2 

f ?l5 IFPEEKI 163«6> =201 THENPOKE 16526, Z 1 : POKE 16527, ZEE 

LSEDEFU5fi=AD:CMD"T" 

=■•5 REM :::::: IMPLANTATION DU SOUS-PRG MUSICAL : 



60 FORI »ADT0AD+23!READDt POKE! 

70 DATA205, 127, 10, 175,22, 1,76 
238. 1,211,25b, 13,32,243,21,32 
■50 REM «■ = + = «>=+= + CHAINED 6RA 



D:NEXT:AD=AD-i-5 
69, 16,254,69, 16,. 
239,201 
PHIQUES DES DOMING 



)*STRING*C 



+ CHR*(26)-'STRING* 
RING* (3, 128)*CHRS< 140)+STRING*13, 12: 
R*(26>+STRING*(9,24>*CHR*( 191>+CHR* 
•■STRING* (5, 176)*CHR*( 191 > 
140 D*(4)=CHR*( 191 )+CHR*l 13D+CHR* 
131 )*CHR*< 179>+CHR*l 131 >+CHR*< 191 > 
*(9,24)+CHR*( 191 )*STRINGS!7, 1281+Cl 
l*STRING*(9,24>*CHR«( 191 H-CHR*! 176) 
NG*C3, 176>+CHR«( 179>*CMR*( 1761+CHR* 
150 D*<5)=CHR*( 191 >+CHR*( 131 >+CHR*< 
131 )+CHR*(179)+CHR*( 131 >+CHR*( 191 ) ■ 
*<9,24)*CHR*( 191 )+STRING*!3, 12B)+CI 
(3, 128)+CHR*t 191 ) -*CHR*< 26 > i-STRINGS 
+CHR*( 176>»CHRSt 179)+STRING*(3, 176 
155 D*(5>=D*<5>+CHR»< 179>+CHR*< 176 
160 D*(6)=CHR*( 191 >+CHRS< 131 J+CHR* 
CHR*( !79>+CHR*( 131 )*CHR*( 179J+CHR* 
CHR*(26)*STRING*(9,24H-CHR*(191 ) +S" 
R*( 19! )+CHR*<26>*STRING*!9,24)*-CHR* 
165 D*<6>=D*<6>+CHfl*< 179H-CHR*! 176) 
( 1761-i-CHRK 179>fCHR*< 1 76 ) *CHR1< 191 ) 
170 GOTO5000 
200 REM ========== TEST NUMERO 1 v 

210 G=0JCLS-PR]NTa0, "TEST NUMERO == 



CHR*(19 

:8H-CMR*(191 > + CN 

176)*CHR*( 179) 

179)+STRING*(3, 
CHR*126)+STRING 
R*( 191 )+CHR*<26 

CHRS1 1791+STRI 

191 ) 

79>*STRING*(3, 
CHRK261+STRING 
R*( 1401+STRING* 
9,24)*CHR*l 19I> 

*CHR*( 191 ) 
179>»CHR*< 13! )+ 
131 )*CHR*l 191 >* 
RING*t7, 12B1+CH 
191 )+CHR*t 176) 
CHR*!179!+CHR* 



(1) 



i =G0SUE6( 



•-STRING** 3, 120) iCHR*( 191 I +CHRH 26 > ' STR 1NG* i ' 



+ CHR! 
120 D*(2>-CHR*( 191 >*5TR1NG* 
131 )-CHR*( 191 >*CHR*(26)+STRING*(9 
RING* (7, 12B) 'CHR*{191)4-CHR*(2i 
(191 l+CHR*( 176)-CHR*( 179)fSTR 
130 D*(3>=CHR*( 191 > 'STR]NG*!5 



CHR*<179'»CHR*( 

4>*CHR*< 191 >+ST 

STR I NG* '. 9 , 24 ) «-CHR» 

NG*<5, I76>+CHR*( 191 I 

13J )*CHR*( 179)tCHR*t 



220 PRINTa3B4,D«(Dl ( 1 ) ) ;3392iD*(Dl < 1 ) ) ;a406,D*(DK 

2) ) ;S41<i,D*<D] 12) > iS42B,D*(Dl (31 > ,3436, D* I Dl (3) ) i 

230 PRINT3704iD*i'Dl < 4 ) ) ; 3712, D* 1 Dl ( 4 ) ) 53726, D*(D1( 

5) ) ;3734,D*(D1 (5 ) ) ; 3748, D* 1 ) ,3756, D*(0) i 

240 GOSUP-6400:GOSUB6000 

230 IFT(1)=D1 (6)ANDT(2)=D1 (6)THENG=G*1 :GOSUB62'00EL 

SEGOSUB6300 

260 D2=D1 (6) :D1=D1 (6) : GOSUB6500 

400 REM =. = = = = - = = = =: TEST NUMERO 2 ■> ========== 

410 CLS:PRINT30, 'TEST NUMERO == ( 2) ";: RANDOM 

420 F0RI=1T03=D(I )=RND(7>-1 JNEUT 

430 D< I >=RND(7)-1 

440 IFD( I >=D( 1-1 )0RD( I )=D( 1*1 >THENI=I-1 :GOTO430 

450 IFI- 6THENI=I+1 -GOTO430 

■■60 PRINTil64,D*iDI 1 > ) i372,D*(D(4) I ;aB6,D*(D(21 ) i39 



4,D*(D(5) > ;310B,D*(D(3) ) i 3! 16, D* ( D{ 6) > i 

470 PRINT33B4,D*(D(2) ) i 3392, D* (D I 5 ) ) ;3406, D* I D( 3 ) I 

;3414,D*(D(6) ) ;342B,D*(D(1 ) ) ,3436, D* (D ( 4 ) ) ; 

480 PRINT3704,D*(D(3) >? 3712, D* I D( 6) ) ;3726,D*iD( 1 ) I 

,3734,D*(D(4) ) i374B,D*<0) ;3756,D*(0) i 

490 GOSUB64B0:GOSUB6000 

500 IFT(1 )=D(2)ANDT(2)=D(5)THENG=G+1 : GOSUE6200ELSE 

GOSUB6300 

510 D2=D(2) :D1=D(5) : GOSUB6500 

600 REM ==========:■ TEST NUMERO J = = ========== 

610 CLS:PRINT30. "TEST NUMERO == . ( 3 > " ; : RANDOM 

620 F0RI=1T03JD( I )=RND(7)-1 :NEXT 

630 D! I )=RND(7)-1 

635 IFD(I)=D( I-3)THENI=I-1 : GOTO630ELSEI F I =4THENI=I 

+1 :GOTO630 

640 IFD( I )=D( I -I )0RD( I)=D( 1*1 )THENI=I-1 :GOTO630 

650 IFI- 6THENI=I+I : GOTO630 

660 PRINT386,D*(D1 1 ) ) ,394,D*(D(4) ) i 31 0B, D* ( D( 4 > ) ;3 

1 16.D*(D(i> ) i 

O70 PRINT3406,D*(D(2) > i 34 14, D* ( D(5 ) ) ; 3429, D* < D I 5 > ) 

5 3436, D*(D(2) ) I 

6BB PRINT3726,D*ID(3> ) i 3734, D* ( D(6 ) ) ;37A8iD*(0i i37 

56,D*!0) ; 

690 GOSUB6400:GOSUB6000 

700 IFT(1 )=D(6)ANDT(2)=D(3ITHENG=G»1 JGOSUB6200ELSE 

GOSUB6300 

710 D2=D(6) =D1=D(3) JGOSUE6500 

B00 REM = c ========t TEST NUMERO A '=========== 

310 CLS:PRINT30, "TEST NUMERO ™ ! 4 ) ■ ; : GOSUP6600 

B20 RAND0M=D7=RND(7)-1 

B30 PRINT3384,D*(D1 (7) ) i 3392, D* 1 DM 1 > 1 ,3406. D*<D) I 

2) ) 53414, D*iDl (7) ) 5 3428, D* < Dl ( 7 > ) 5 3436, D*< Dl < 3 ) 1 ; 

840 PRINT3704,D*(D1 I 4 ) I i 37 1 2, D* ( Dl ( 7 ) ) 53726, D*(D1 1 

7) ) 5 3734, DtlDl (5) ) 5 3748, D* ( ) 53756, D*(B) 5 

950 GOSUE6400:GOBUB6000 

860 IFTd )=D1 (6)ANDT(2)=D1 (7)THENG=G*1 :GOBUE6200EL 

SEGOSUB6300 



C'est nouveau, $a vient de sortir 



BIDOUILLE GRENOUILLE 



L immeuble du 46 bis de la 
rue Rrquel dans le 18eme ar- 
rondissemenl a Pans est un 
immeuble cosso. cerne de pe- 
tltes residences parliculieres 
qui toutes sont posteneures a 
la derniere guerre Seui. eel 
immeuble se dresse, dommanl 
les aulres de son siecle bien 
tasse: il a ete conslruit en 
1876 par Le Corbusier Detruil 
duranl la premiere guerre, re- 
construil, redelruil e! recons- 
Iruit, il a garde lapparence 
qu'il avail a lepoque oil il lul 
erige. 

A chaque etage. saut au qua- 
trieme. deux pones donnent 
sur le palier. Au quatneme. 
une porte unique vient atlester 
de la spiendeur passee des lo- 
calaires: les De Lambreau 
avaient achete en 1953 les 
deux apparlemenls mitoyens. 
puis les avaient reunis en 
abatlant une clotson. Au- 
jourd'hui. te tils unique des Oe 
Lambreau habite eel immense 
local avec quelques-uns de 
ses amis, lis ont forme une 
communaute autonome. el en- 
voient regulierement au gou- 
vernemenl des demandes d'in- 
dependance denuees de tout 
londemenl legal. 
A cet instant. Chnstophe De 
Lambreau regarde run de ses 
camarades qui est en train de 
pester en lisant un |ournal d'tn- 
tormatique. 

La personne qui s'enerve. 
Lauranl Ciet. a les yeux injec- 
les de sang. Le journal grand 
formal est etale par lerre de- 
van! lui. el il recne a voix 
haute I article qu'il est en train 
de lire. 

Pour tous ceux qui desirent 
acceder a la seconds partie du 
"Diamant tie Vile maudile' sur 
Oric, void la marche a suivre 
pour resoudre la premiere. Re- 
merciez Marc Goldstein, car 
c'est de lui que vient cette so- 
lution ! 

Gauche. avance. avance, 
droite. avance, gauche, prends 
bottes. mets bottes. gauche, 
avance. gauche. avance. 
avance. prends massue. gau- 
che, avance. demi-tour. 
prends gourde. gauche, 
avance. gauche, avance. gau- 
che, avance. gauche, entre. 
prends couteau. droite. lance 
massue. bois gourde, pose 
gourde, prends torche. droite. 
avance. droite. avance. droite. 
avance. droite, avance. 
avance. lance couteau. prends 
couteau. prends pelle. deblaye 
terre. demi-tour, monte coco- 
tier, prends noix de coco, 
mange noix de coco, des- 
cends, avance. droite. avance. 
droite. avance. avance. coupe 
plante. prends trousse. prends 
cachet, prends fortifiant. demi- 
tour, avance, avance. gauche, 
avance. droite. avance. allume 



torche. gauche, avance. gau- 
che, avance, avale cachet, 
avate tortiliant. gauche, entre, 
ouvre tiroir. prends paquet de 
cigarettes, ouvre paquet de ci- 
garettes, prends ele. droite. 
ouvre trappe. descends, demi- 
tour, ouvre grille, avance. 

Laurant Ciel est lediteur du 
jeu, el il avail pourtanl de- 
mands a ce journaliste de mal- 
heur de ne pas publier ces so- 
lutions. Chrislophe De 
Lambreau Tecoute. visible- 
meni fascine par eel homme 
qui sous des dehors paisibles 
est en fail un veritable homme 
d affaires, ce que Ion desi- 
gnait durant les annees 
soixante-dix par le lerme 
"jeune loup". 



15. 8. 15. 'Ul- - CLOSE 15 
Pour refablir la normale POKE 
53265 PEEKI53265IOP. 16 OPEN 
15.8.15. *UI~ "CLOSE 15 
Pour trouver ie debut dun pro- 
gramme en langage machine sur 
disquette. execute; le programme 
sulvanl 
5500QINPuTNOM':NS 

55001 OPEN 8.8.8. NS GET* 
6. AS BS CLOSES 

55002 A= ASC(AS t CHRS 
(01)8= ASCIBS - CHRS(0)) 

55003 PRINT "CA COMMENCE EN 
':A+ 256" G 

Sur le mur. au feutre noir. esl 
porte ie numero de telephone 
de lappartement du sixieme. 
Ceim-ci est occupe par la 
mere du jeune homme qui lit. 
Sa mere a publie six plaquet- 




Au huitieme etage. quati 
chambres de bonne sonl ali- 
gnees le long du couloir. Elles 
correspondent chacune a I'un 
des appartements de limmeu- 
ble. 

Sur la porte de la troisieme 
Chambre est appose un auto- 
collant vantanl les meriles 
d'une boisson gazeuse repu- 
tee. Au-dessous est punaisee 
une carle de visile ecrile a la 

mam portant le surnom 
"L'Ange Noir". 

A linterieur, un homme est al- 
longe sur le lit. II lit un livre in- 
titule "Les cloaques inlerieurs" 
de A. Serman. Des vetements 
sont 6parpilles sur le linoleum, 
el le desordre qui regne dans 
la piece semble assez ancien. 
Sur la table de nuil. un ou- 
vrage trailanl dun ordinateur 
familial, le Commodore 64. est 
ouvert au debut du quatrieme 
chapitre, et un papier couvert 
d'inscriptions manuscrites sert 
de marque page. 

Test du bouton 'fire" du joystick 
branche sur le porf 1: WAIT 
56465,16,16 Branche sur le porl 
2: WAIT 56464. t6. 16 
Pour augmenter de 10% la vitesse 
du drive 1541, tout en deshabili- 
tant lecran: POKE 53265, PEEK 
(53265) AND 239 OPEN 



tes de poemes. toutes a 
compte d'auteur, mais son 
passeport menlionne la pro- 
fession decrivam. Elle est en- 
core invitee de temps en 
temps dans des cocktails et 
des receptions, mais c'est de 
plus en plus rare. Elle continue 
toutefois a se targuer de ce 
titre. et a meme ele par des 
jeux de relations jusqu'a laire 
creer une rubnque "femmes- 
ecrivains" dans le bottin pour y 
paraitre. 

Elle nest pas chez elle Seule 
la femme de menage est pre- 
sente. silencieuse. Elle se 
hen) dans la cuisine, deboul a 
cole du refngerateur ouvert. 
Elle a en main un pot de 
mayonnaise d une marque 
connue dont la date est peri- 
mee. 

Dans lentree, un portrait du 
pere du jeune homme, qui a 
ete peinl par Barileboose il y a 
16 ans. II avail ele commande 
par la mere a la suite dun ac- 
cident de voiture dans lequel 
le pere avait ele gravemenl at- 
leint. II ne devaM pas survivre, 
mais a reussi a surmonler ses 
epreuves Le tableau est reste 
dans lentree. 

Chambres de bonne, porte 8. 
Derriere. un groupe dadoles- 
cents sont en vive discussion. 



L un deux a un bras leve vers 
la fenetre. et tous ont la tete 
lournee vers la direction indi- 
ques. 

Un bloc de leuilles est pose 
par terre Dessus. des ques- 
tions sont ecrtles a I encre 
bleue. 

'Comment habille-t-on la (ille 
dans le myslere de Kikekan- 
koi ? Comment passer les 
portes "boite" et "tube" sous la 
trappe ? Comment entrer dans 
la maison dans Arsene Lapm ? 
Comment eviter le chien T 
Une leuille a ete detachee du 
bloc et repose sur le lit. Des 
solutions d un jeu informatique 
y sont inscrites, lecrilure te- 
moigne de la rapidile avec la- 
quelle ces phrases ont ete 
ecriles. 

Tyrann ■ Oric - Pour gagner 
de 1'argent, donner a un 
membre de la bande une 
somme negative. Le meme 
montant sera credlte au per- 
sonnage qui a donne I'ar- 
gent. Mais impossible de 
sauvegarder une partie en 
cours car les sommes nega- 
tives ne sont pas prises en 
compte. 

Un minilel esl pose sur un ta- 
bouret, ouvert. L'un des ado- 
lescenls est en train de laper 
un mot. On distingue les lel- 
tres "MA". L ecran represenle 
une ville en pleine nuit 
II tape de la main droite, et 
dans la gauche lient un carnet 
d'adresses. II est ouvert sur 
les dernieres pages, et des nu- 
meros de telephone couvrent 
les deux pages. Quelques 
mentions sont portees sur le 
coin droit: Sweet Crackers 
Rennes. Cider, Normant. 
I2O0 bauds (aerveurs mini- 
tet): 

Cider 1: 16(38)9023 13 
Telephone vert: 16 (1) 797 29 
36 

300 bauds: (modems): 
Everest: 16(1)876 45 67 
Spacecom: 16 (37) 62 38 63 
Transpac (613 91 55): 
DRT Marseille: ' 106040092 
ORT Nantes: " 144000440 
CNET Lannlon: 12200013222 
Annuaire lie de France: 311 
21 11 et 619 91 11 
Dans I'escalier devant la porte 
de gauche du deuxieme etage. 
il y a une carle vantanl les mo- 
nies dune entreprise de plom- 
berie. Elte est de couleur 
orange, probablemenl pour al- 
lirer loeil 

Les caves sont fermees avec 
de gros cadenas Celle de 
Barileboose se distingue net- 
lement des autres: sa porte 
est peinte en rose. Bren que 
I'artisle ne vive plus ici. il a de- 
sire garder cette cave pour y 
entreposer les loiles de sa pe- 
riode cubique qu'il ne veut pas 
vendre. 



MAY THE LASER BE WITH YOU 



LaserWriter, c'esl le nom de 
la nouvelle imprimante a 
laser d'Apple. Une impri- 
mante intelligente, car elle 
est compos^e dun ordina- 
teur comportant un proces- 
ses Motorola MC68000, dun 
mega de memoire vive et de 
512K de memor- 




I'espace entre les points est 
comble afin d'obtenir une 
meilleure definition. Limpres- 
sion finale donne une resolu- 
tion de 130 points par centi- 
metre et s'effectue a la 
vitesse de 2 a 8 pages par 
minute sur papier ordinaire 
Le prix: 70000 francs envi- 
ron . Disponible vers juin 
1985. 
Exemples d'impression 




Avec cet ordinateur dont on 
ne connait pas le petit nom, 
vous disposez dune impri- 
mante integree Canon LB- 
CX10 qui comme son nom 
lindique est a laser, el le lout 

est programmable par Posts- Mca/Mntrtch 
cript. veritable langage de IwHBVillWWII 
photocomposition. A noter 

2r, 8 ma c „ e 18 q t^p s :;r a "r a :™: MMnnntoBihi 

solution de celle-ci et non a 
la resolution de lecran de 
lordinateur. C est a dire que 



LES CRACHEURS - DANS - LA - SOUPE 



Le porte-parole de Tansoft. la 
compagnie anglaise d'edilion 
creee par One et devenue 
depuis independante. a de- 
clare: "Nous survivrons sans 
Oric. nous avons en ce mo- 
menl des programmes prets 
a etre lances, et destines a 
dautres machines. Nous 
nous atlendons a un mauvais 
accueil sur le marche, a 
cause de la mauvaise reputa- 
tion d'Onc qui va nous sui- 
vre. mais pas plus". Si ca 
n'esi pas de lamour filial... 




ENCORE UN COMMODORE 



Le PC 10 esl le compatible 
IBM PC de Commodore. II 
est diffuse actuellement en 
Belgique pour 100 000 FB 
(environ 14 000 francs) en 
version de base 256 Ko. 
deux lecteurs de disquettes 
360 Ko et montteur monoch- 
rome. D'apres les lests ac- 
tuals il seran compatible a 
cent pout cent avec le PC 
Dailteurs ces tests de 
compatibilite s eflectuent 



avec un seui logiciei du mi 
che: le Flight Simulator II 
Sublogic. Incroyable. non? 




TOUJOURS SANS PETROLE, 
TOUJOURS AVEC DES IDEES ! 



GRAPHISCOP II revolu- 
tionne I idee de lablelte qra- 
phtque: finis les tremble- 
ments. I imprecision du trail. 




et non protege, s elend a vo- 
tonte pour vos applications 
parliculieres. La reproduction 
dun dessin esl grandemenl 
lacilnee par la possibihie de 
placer I original sur la lablelte 
et de suivre les contours 
grace au stylo Malgre tout, 
le contact entre stylo et la- 
blelte n'esi pas necessaire 
au bon fonclionnemenl de 
celle-ci 

Acluellement Irois versions 
sonl commercialisees (Apple, 
Commodore el Oric) el qua- 
Ire arnveront sur le marche 



ce qui confine au genie) sim- 
ple pour ne pas dire sim- 
pliste: vous prenez un joys- 
lick, vous le meltez tete en 
bas au-dessus d une labletle 
et vous obtenez le meilleur 
sysleme de dessin du mar- 
che. La creation d'itluslra- 
tions originales se realise 
sans probleme grace au logi- 
ciei oftert avec la lablelte: 
points, irails, segments, cer- 
cles, remplissage de figures. 

?omme pertormanle .. 
outes les routines de dessin 
sont en machine mais le pro- 
gramme principal, en Basic 




d'ici deux mois (Exelvision, 
Amstrad, M05. Spectrum). 
Leur prix est inferieur a 1500 
francs, ce qui les place cor- 
rectement grace a ce bon 
rapport qualite-prix. 



LE PERIPH EST BOUCHE 



Le Commodore 64. sil est in- 
Irinsequement une excellente 
machine, souffre dun envi- 
ronnement peripherique par- 
ticulierement ringard. Ce 
n est pas parti pour s'amelio- 
rer avec le Quick Data Drive 
de Phonemark. peripherique 
de sauvegarde base sur le 
principe des microcassetles 






Nos essais infument large- 
ment la theone: necessite de 
charger le QOS (equivalent 
du DOS. lemps de charge- 
ment 70 secondes). impossi- 
bilile d'installer un pro- 
gramme de C000 a CFFF (le 
QOS squalte la RAM qui s'y 
trouve), lemps de ctwge- 



ment ires court (10 Ko en 5 
secondes) mais recherche 
des hchiers Irop iongue (jus- 
qu'a 45 secondes). capacile 
limitee de 15 a 128 Ko, im- 
possibilite de sauvegarder 
des fichiers relatifs, support 
fragile (surtout pour les 128 
Ko) parce que trop fin, ne- 
cessite de charger un autre 
programme pour avoir accfes 
aux fonctions de "copie de fi- 
chiGrs", "catalogue", "ngl- 
toyage", "formatlage"... De 
plus vous devez imperative- 
men! acquerir une cassette 
de nettoyage des teles de 
leclure-ecrilure si vous vou- 
lez utiiiser le drive plus de 
(rente heures. El pour finir; 
aucun logiciei du commerce 
n existe sur ce support et le 
transfer! sur m re ro cassettes 
est irrealisable sans deplom- 
ber les softs. La besliole sera 
commercialisee en France 
aux alentours de 1400 
francs, ce qui nest pas cher, 
mais une boite de DDT est 
encore moins chere et pres- 
que aussi ulile. 



ET UN BON PLAN, UN 



Lundi 18 fevrier sesl tenu a 
I'Holel Drouot a Paris la pre- 
miere venle aux encheres en 
France de materiel informati- 
que. organisee par Mail re Ma- 
ring es et Mailre De Qay. 
Nous etions la. bien entendu. 
guettant la bonne affaire. Mal- 
heureusemenl. les seutes inte- 
ressantes etaient des gros sys- 
i ernes, tei un Teletek 
multiposte. avec deux ecrans, 
deux claviers, un disque dur 
de 1 5 Megas, un lecteur de 
disquettes et une imprimanle 
pour 10.826 francs, morns 
qu'un Apple (n'importe lequel) ' 
L un des seuis matenels reeiie- 
ment destines au grand public 
etait. lustement. de ('Apple. 
Des imprimantes Imagewnter 
ont ete vendues 4353 Irancs, 
au lieu de 5762 francs, prix 
conseille par Apple, et des mo- 
niteurs pour Apple lie se sont 
arraches au prix de 1300 
francs. 

Par contre, certains acheteurs 
peu au courant se sont fait re- 
liler des imprimantes Seikosha 
GP100 a 1700 francs, plus 
cher que dans le commerce ! 
Et un Apple lie avec monileur 
et double lecteur de disquet- 
tes. sans conlroteur, sans au- 
cune carte s'est vendu 1 1.000 
francs I 

Les appareils provrennenl de 
reglemenls judiciaires. de so 




cietes en liquidation ou de lea- 
sings non pa yes Mais dans 
certains cas. les appareils se 
vendent sur les heux memos 
oil ils se Irouvent el les prix 
sont encore plus interessants 
car les acheteurs moins nom- 
breux. Comment elre au cou- 
rant ? II suffit d acheter regulie- 
rement le bi-hebdomadaire "le 
Moniteur des ventes public". 
Apparemmenl, nen de plus sim- 
ple, mais il ne se vend qua 
I'Holel Drouot lui -me me ou 
dans les kiosques avoisinanls. 
Les resultats ont ete si bons 
que Maltre Marmges et Maltre 
De Qay envisagent de renou- 
veler assez sou vent lope ra- 
ti on. Ten ez- vous sur vos 
gardes ! 



C'est nouveau, pa Went de sortir 



INTERFACE QUI REND FOU 



1983, Floyd 
French, de Gladstone dans le 
Missouri a lue Henri Phillip 
Bouldin. honnete commer- 
cant amencam. French avail 
commande un ordinaieur a 
Bouldin. puis avail apporie 
une impnmanle achetee ail- 
leurs pour que le magasm 
rende les deux appareils 
compatibles. La dispute qui 
s'ensuivit devait couter la vie 
au vendeur d'inlormalique 
L'interface RS 232 venait de 
tuer pour la premiere fois. 
Vous avez peul-elre deja es- 
saye de connecter differents 
peripheriques a voire ordina- 
ieur avec cetle lameuse in- 
terface RS-232, vous 
connaissez les crises de nerf 
quelle est capable de vous 
laire prendre avec ses regia- 
ges de parite. ses bits de 
slop, ses vitesses de trans- 
mission et autre full ou hall 
duplex. Si vous n'etes pas 
encore passe par cette rude 
epreuve. vous ne perdez rien 
pour attendre; le moindre 
branchement de modem va 
vous plonger dans les affres 
de cetle malefique norme 
Voire sante. voire raison el 
meme voire vie sont en dan- 
ger ' 

A moins que vous ne vous 
procuriez I excellent ouvrage 
de Joe Campbell qui peul 
vous sauver la mise. Vous y 




trouverez toul pour conlrer 
cette sorciere. du bncolage 
de cable ou de materiel d'es- 
sai jusqu'a la partie logicielle 
ou aux exemples d utilisa- 
tions. Le materiel utilise esl 
malheureusement du haul de 
gamme peu distribue en 
France, mais I adaptation a 
nos engins esl lacilement 
realisable surtout apres avoir 
suivi les premiers chapilres 
avec attention. Le ton de 
louvrage esl. de plus, parti- 
culierement humorislique 

lout en etant admirablemen! 
documenle Du bon boulol 
Americain traduit en trangais 
Environ 150 francs, edite par 
Sybex 



GOLIATH CONTRE GOLIATH 



Des fois on se dit liens, 
Apple el IBM sonl en train de 
se foutre sur la gueule '. Les 
v'la partis dans la bataille 
des prix et des machines. Un 
combat eblouissant au cours 
duquel on s'arrache des 
pans de marche a grands 
coups de denis. C'est beau, 
c'est grandiose, c'est dan - 
lesque IBM joue les Charlols 
dans la presse. Apple s offre 
les pages centrales de I'Ex- 
press. IBM organise son 




Forum, Apple monte sa 
Convention Et j'organise des 
coups par ici. et je monle 
d'aulres coups par la. 
Le public ebahi suit avec ra- 
vissement ce combal de Mr 
David Apple contre Mr Go- 
liath IBM. Et pendant ce 
temps la. qu'est-ce qui se 
passe ? Je vous le de- 
mande ? . He bien les six 
plus grands conslrucleurs 
europeens (ICL. BULL, SIE- 
MENS. NIXDORF. PHILIPS 
el OLIVETTI) viennenl de 

ATT en choisissant de se 

brancher sur son logiciel de 
base UNIX. Cela signilte en 
clair qu'lBM vient de se pren- 
dre une grande claque sur 
son lerrain. Et pas par Apple. 
Quand on esl distrait, on voil 
pas venir les coups bas ! 



BOUM ! C ETAIT OUOI ? LE MARCHE 
ANGLAIS QUI S'EFFONDRE 



Que se passe-t-il Outre-Man- 
che ? Le Spectrum ne vaul 
plus que 1000 francs, le 
Spectrum Plus descend a 
1300 Irancs el I'Electron se 
brade au meme prix. Les ac- 
tions d Acorn baissenl. cau- 
sanl une petite panique au 
sein des milieux financiers 
britanniques. Commodore a 
meme licencie 100 person- 
nes de son usine de Corby. 
Reaction des fabricanls: au- 
cune. Mais des rumeurs 
commencent a se repandre: 
eel apparenl silence cache 
en fail une offensive sur le 
marche des 16 bits, mais 
dans le plus grand secret, 
espionnage industriel oblige. 
Sinclair etend sa gamme QL 




(pour I'mstant limilee a un 
appareil et 8 logiciets), Acorn 
a i intention de sortir un 
micro plus puissanl, Amstrad 
loucherai! vers le 16 bits... 
Nachetez plus de 8 bits, 
c'est fmi ! 



UN JOYSTICK DENFER POUR APPLE 



Le joystick qu Apple fabrique 
pour ses propres machines 
esl si moche, nul el cher qu il 
faudrail etre fou pour ne pas 
alter voir ailleurs; manque de 
precision, de liabihie et de 
solidite. 

Toujours en pleine defonce 
du consommateur. je me suis 
(ait une hgne de joysticks, el 
C est I IDEAL qui a emporte 
la palme du grand Nirvana de 
la Manelte Enchantee Voyez 
eomme il est beau, ave les 
gros boulons jaunes qui Cli- 
queltenl sous le pouce. 
Voyez comme il esl precis, 
ave les fins reglages verti- 
caux el honzonlaux Voye2 
comme il esl stable, ave les 
ventouses qui suceni les pla- 




comme il esl tut 
modes de depl. 
deux vitesses differentes 
Voyez son prix, aux alentours 
de 600 balles chez Oynamile 
Computer Et quand vous 
aurez toul vu. vous me direz 
ce que vous en pensez 



DEUX CHERCHEVRS DE PITTSBURGH 

OUBLIENT D'INVENTER 

LE FIL A COUPER LE BEURRE ! 



Les yankees ne sont pas a 
cours d'idees. Deux specia- 
lties de science politique 
viennent de meitre au point 
un programme mformatique 
pour prevoir les guerres. Ces 
deux obsedes du iravail oni 
gave leur ordinaieur comme 
une chaudtere de loco a va- 
pour. Pendant onze mois, ils 
ont accumule des donnees 
sur I'histoire el I economie de 
chaque pays, lis onl mixe le 
lout, zonl rajoute une pomle 
d'ail et les peliles herbes de 
Ducros pour arnver a un re- 
sultat aussi nul que cretin. 
Vorci les conclusions de I or- 
dinaieur: (je repete: 11 mois 
de boulol I) 

1 Pour declencher une 
guerre, une nation doil etre 
insatisfaite de sa part de res- 
source mondiale. 

2 On fait la guerre a des 
pays avec lesquels on a des 
echanges reguliers. 

3 On ne provoque pas une 
guerre si on pense qu on peut 
perdre. 

Nantis de ces conclusions 
don! la sublime intelligence 
balaye en irois phrases toute 
I'oeuvre de Vauban, nos 



deux zeles chercheurs se 
sonl atiaques ( '■) a I elude de 
la con|onclure presente. Ils 
voulaien! savoir si leur pro- 
gramme etait capable de pre- 
voir des guerres deja en 
cours. Ce qui est vachement 
fort dun poinl de vue previ- 
sionnel. Une fois de plus, 




I ordinaieur n'a raconte que 
des conneries. et il a ete in- 
capable de prevoir la guerre 
Iran-Irak. C'est pas de noire 
Jaute ont commenle les au- 
leurs vu que dans ce cas les 
motivalions sont "ideologi- 
ques ou liees a la jalousie". 
et ces deux parametres ne 
sont pas dans le programme. 
Lamentable. 



ALLEGRO MA NON TROPPO 



La federation Microtel a un 
concurrent: I'Association Na- 
tionale pour le developpe- 
menl de (Appropriation des 
Nouvelles Technologies 

Electroniques. autrement dil 
I'ANDANTE. 

Appropriation ? Pas clair, 
ga 1 Z'auraient pu dire Ac- 
quisition' ou quelque chose 
de plus soft. Sappellent pas 
Andante pour rien ! 
Toujours est-il que cette fe- 
deration regroupe une 
soixantame dissociations di- 
verses comme Clubs d'infor- 
matique. Ecoles, MJC. Cen- 
tres de Formation ou Centres 
Sociaux el qu'a partir de de- 
sormais |usqu a dorenavant. 
ils se sont installes de fagon 
permanenle dans de super- 
bes locaux au 99. rue de 
Merlo a Oullins (69600). lis 
s occupent de toutes les peti- 
tes choses dont s'occupe ha- 
bituellement Microtel avec 
plein d Associate, de Coiieclil 
ou de Pedago-didaclico-ma- 
chin dans leur propos. 



Y doivent quand meme pas 
cracher sur les ieux puis- 
qu ils nous ont demande de 
mettre IHebdo dans leur bi- 
bliotheque inter-associalive. 
Ca va lui laire lout drole a 
rhebdo d'etre dans une belle 
bibhotheque loute neuve. j'en 
connais plus dun qui prefe- 
rerait le voir aux chiotles ! 




S'lL TE PLAIT, DESSINE-MOI UN ET. 



Temps de crise oblige: apres 
avoir ete mechants dans The 
Thing, Les survivanls de lin- 
fini et autres films, les exlra- 
lerrestres sont devenus gen- 
tils avec Rencontres du Irol- 
sieme type et ET. Naive 
comme elle est, lAmerique 
s'empare du phenomene. et 
une cohorte de lous et de re- 
veurs se mettent en tete de 
rechercher des formes dm- 
telligence extra-terrestre. el 
ce... a I aide d'ordinaleurs. 




Un physicien de Harvard, 
Paul Horowitz, a conslruil un 
systeme complexe meitant 
en jeu une antenne paraboli- 
que de 27 metres el un mini 
ordinateur recevant en per- 
manence les signaux venus 
des eioiies. Ceux-ci sonl de- 
composes en 131000 por- 
tions, cest-a-dire quit 
s'opere un "scan" de cha- 
cune des 131 000 lignes qui 
sonl analysees, et le momdre 
ecart par rappori a la norme 
habituelle est enregistre sur 
disque dur pour etre eludie 
par la suiie Ces ecaris sont 
souveni de beies mierferen- 
ces radio, ou des pulsars, ou 



encore des quasars, mats 
bien rarement des civilisa- 
tions galactiques. Jamais, en 
fait. Le probleme est que tout 
ce qui emet de la chaleur (a 
savoir tout) emet aussi une 
frequence radio. Les fanati- 
ques esperent done que les 
extra-terreslres seront assez 
intelligents pour emeltre sur 
les frequences les plus laci- 
les a delecter. ce qui releve 
de la plus emouvante nai- 
vete Le plus etonnant est 
que la NASA investit 1 million 
et demi de dollars chaque 
annee pour ces Iravaux. 
II y a 300 milliards d'eloiles 
dans la voie Lactee. el envi- 
ron 10 milliards d aulres ga- 
laxies dans I univers connu. 
La-dessus, on eslime a 10 
milliards le nombre de plane- 
tes dans noire galaxie qui 
pourraienl abriler une (orme 
d intelligence. Deux re- 
flexions viennenl a I'espril; 
dune pari, ce serait assez 
drole que chacun soil chez 
soi a essayer de capter I au- 
tre a I aide d'ordinaleurs. 
d'autre part, sur 10 milliards, 
il va bien y en avoir deux ou 
trois qui vont venir directe- 
ment sans qu'on ait besom 
de les deiecler a lavance. 
Mais pour ceux qui sonl pres- 
ses, il existe deja aux Etats- 
Unis des programmes lour- 
nanls sur IBM PC, Apple, et 
loules les machines equi- 
pees d un processeur 68000 
(Macintosh. OL. Atari 520 
ST...). LET n'esl pas fourni 



DESSINEZ SUR UN ZX 81 



C'esl encore Ere Informati- 
que qui Iranchu le pas ' De- 
sormais la haule resolution 
exisle pour le ZX. Le pro- 
gramme Graphix 81 (qui a 
necessiie deux ans de pro- 




gramme occupe 4 Ko sous 
(orme de REM (langage ma- 
chine). II esl capable de 
gerer de 16 a 64 Ko de me- 
moire vive ce qui le rend utili- 
sable sur toutes les configu- 
rations du ZX 81 (sauf celle 
de base bien eniendu). Son 
pnx peut paraitre prohibits 
pour un logiciel ZX (150 
francs), mais ses capacites 
uniques les valent bien ' 



grammation) donne acces 
aux fonctions ctassiques de 
dessin H.R. du type pomi 
Irait. segment, cercle. Des 
(onctions speciales comme 
I'inversion graphique. la 
copie d'ecran. I'integralion 
dans vos logiciels sont ac- 
cessibles sans operation fas- 
lidieuse a elfectuer Le pro- 




L'ARAIGNEE CAUSE COMME VOUS ET M0I 



Une nouvelle a laquelle j'ai 
peine a croire: le dernier jeu 
de Scott Adams, Spiderman. 
comporterait une analyse 
synlaxique complete. Si il 
travaille encore comme ga 
pendanl quinze ans. on va 
meme linir par avoir de I'hu- 




EH DIS DONC ! EDDY 2 



Nous aulres qui adorons le 
MSX. nous nous sommes lit- 
l6ralement ietes sur Eddy 2. 
le seul logiciel d'aide d la 
creation graphique valable 
(d'apres les on-dits) pour les 
sus-cites ordinateurs Le 
chargement ne pose pas de 
probleme (normal, c'est une 
cartouche), mais pour ce qui 
est du mode d'emploi les dif- 
ficultes surgissent au grand 
galop: nous n'avons jamais 
pris le temps de lire une doc 
et ['utilisation d'Eddy 2 le ne 
cessite ! Apres lecture de la 
documentation, en frangais 
s'il vous plait, nous commen- 
gons a nous amuser comme 
des petits fous (que nous 
sommes) en reproduisant le 
logo pre'ere de la redaction: 
j'ai nomme I'hippocampe, 
Toutes ces manipulations se 
pratiquent a laide du Cal. 
I'equivalent de la souris d'Ap- 
ple pour MSX, ce qui simpli- 
fie grandement la manipula- 
tion des differentes 
-ommandes du soft 



Une routine subtile vous per- 
met de voir voire dessin defi- 
ler de la droile vers la gau- 
che en une boucle intinie, 
leffet hypnolique qui en re- 
sulle est de ires bonne qua- 
lite Une loupe placee dans 





it a ce moment que les 
Athemens s atteignirent ! La 
routine de Fill (remplissage 
d'une figure lermee) est 
beaucoup Irop enormemenl 
lente et ne lonctionne quen 
rayures (blanc et couleur ou 
nolr el couleur): ce n esl pas 
que nous n aimions pas les 
costumes de bagnard, mais 
quand meme I Les ellipses 
ne prennenl jamais la Ian* 
gente (lorcement honzonla- 
les ou verlicales). La gomme 
esl particuherement dure 
vous annulez effectivemeni 
voire derniere commande 
lecran se vide et 1 image se 
reconstilue |usqu a lavant- 
derniere etape. 
Voiia pour les aspects nega- 
tes du logiciel. passons aux 
coies posiiils de la chose 



I angle mferieur ou supeneur 
gauche de lecran vous tient 
au courant a toul instant de 
Tallure du dessin sous voire 
crayon Un aflichage du nom- 
bre d'octets libres pour votre 
image a lieu a cote de la 
loupe. Pour le reste, rien que 
de Ires classique: decoupage 
d'une partie de I image et 
Iransfert, ef(et "spray" (vous 
savez la peinture en bombe). 
(rails lies, dessin point a 
point, changement de cou- 
leur, sauvegarde et charge- 
ment de limage sur cassette 
ou disquelte... 

Pour le moment c'est sans 
conteste possible le meilleur 
utiiitaire de dessin pour MSX. 
mais il serait bon qua lave- 
mr les routines soient plus 
rapides pour ne pas lasser 
I utilisaleur Malgre toul si 
vous possedez un MSX et 
que vous desirez barbouiiler 
lecran dans la bonne hu- 
meur generalisee vous pou- 
vez Tacquenr, mais n'oubliez 




pas que v< 
non seulemeni dans le logi- 
ciel mais aussi dans le Cat 
soil environ 950 Irancs 



Suite de la page 1 



Avec un ELSE dans les IF THEN 
par exemple 

Ou avec des instructions pour le 
grapnisme autre que SET' une 
seule instruction, c'est un peu 
juste pour dessiner surtout 
quand on n'a pas de haute reso- 
lution I 

On aurait pu aussi prevoir de 
faire un peu de musique. c est 
gai la musique, meme quand 
lordinateur n'est pas rouge et 
avec un SOUND dote seulement 
de deux parametres (duree et 
hauteur) on ne va pas bien loin 
Ne cnerchez pas LOCATE ou 
VTAB ou DISPLAY AT ou un 
moyen quelconque decrire all- 
leurs que sur la ligne courante 
(sans PRINT USING, bien 
siir ), TAB est a on se demande 
comment I 

Ne revez pas a des tableaux de 
maitre ni meme a des zouiis 
dessins: a part le SET. pas de 
PAPER, BORDER. PLOT 
DRAWN ou CIRCLE, le desert ! 
Mise au point des program- 
mes ? f-aciiiiile, comme dit la 
pub tele flExelvision pas de ON 
ERROR, ERR, ERL ou ON 
BREAK. Point de TRON ou de 
TRACE pour suivre I execution 
dun programme vous eftacerez 
les lignes de listing une a une 
sans DEL ou DELETE et sans 
pouvoir les renumfiroter et le 
bourjuet: impossible d'arreter le 
listing dun programme sans le 
mettreen BREAK ! 
RESTORE est la, (neureuse- 
ment !) mais pas de RESTORE 
< numfjro de ligne >. super 
pratique ! 

Ouverture de tichiers, utilite 
premiere de la rnicro-informati- 
que, inconnue au bataillon ! 
Arretons le massacre, allez done 
voir I'editeur-assembleur pour 
reconstituer toutes ses lacunes. 
Vous apprendrez le langage ma- 
chine avant le basic ! Normal, 
o-ri-gi-na-li-te ! 

Tout faux ! Alors la. vraiment 
tout taux ! 



ECRANS BLANCS 

Trois modes d ecran sont propo- 
ses un 16 lignes de 32 coionres 
un 25 i>gnes de 40 coionnes et un 
?5 iignes de 80 coionnes 
Le premier enan est loiaiement 
Inutile les lettres oni la meme 
hauteur que le second el on se 
demande bien qui peut couver In- 
teret a dimmuer la largeur de ia 
tenetre de visualisation Peut-efe 
les utiiisateurs de vieux le en 
seurs uses qui latiguent sur ies 
bords ? 

Votia pour le mode lexte qui ne 
possede pas dineonvement ma- 
ieui A pari, peut-etre. nmpossi- 
bi:ie de changer de mode sans el- 
facer i ecran ainsi que les 
instructions de changement qui 
ne fonclionnenl qu en mode di- 
rect, pas en programme ' Pas- 
sons au graphisme 

inutile de s elendie sur les huil 
couleurs. nen que du classique 
La basse resolution est basse 
ires basse 64 x 32 en mode 32 
coionnes 80 < 50 en mode 40 
coionnes. 16 malheureux caiacte- 
res semi-graphiques n'arrangent 
guere les choses 

Pour le mode 80 coionnes. 125 x 
160 pomts sont dispombles mais 
les caiacteres seim-graphiques 
ont disparu Et dans ce mode, 
vous allez devenir lou en essayant 
de comprendre Quelque chose 
SE T ■ n y 1 1 n'ailumeia que rare- 
ment un point en x.y el nous 
n'avons pas encore tout compns 
sur i jii >:e du ' qui peut etre 2 
mais pas plus ! 

Ce graphisme basse resolution 80 
coionnes tonctionne avec des ca- 
racteres Pont les matrices de 2 x 
5 pixels ne sont pas independan- 
tes. II (aut. en fait, redefimr la 
forme dun caraclere pour dessi- 
ner. et vous n'avez plus droit 
qu'a trois couleurs. Pire qu Ap- 
ple ! 

Bon, assez ! La basse resolution. 
c est touttaux I 

Passons a la haute resolution 
Ah. e'etait ga ? II n*y a nen d 'au- 
tre ? 125 x 160 points ? Mais, 
habituellement c'est au moins 
160 x 280 lApple), 190 x 320 



(Atari). 192 x 256 (MSX) 200 x 
320 (Thomson) 250 x 320 lExel- 
vision). ou meme 200 x 640 
lAmstradi ' Tout faux ' 
Ah ii y a 250 x 320 pomts en as- 
sembler ' itavaiiiei ies caracie- 
ies graphiques pouf (aire un pro- 
gramme de lausse naule 
resolution ' un debutant qui ne 
connaitia ni la machine ni I as- 
sembler m meme un wai basic 
va eenre le programme ? Au se- 
COurs ' Tout laux ' ' 

DOCUMENTS 
MAUVE S 

Manuel du basic de 200 pages en 
F-ancais en francais [he.he) 
avec un peu de couieur. un peu 
de photo, on peu d explication et 
une couverture gnan-gnan rje 
Moebius-ia-Star 

Manuel de I'Sditeur-assembieur 
de 45 pages petit format, en Iran- 
cais (hi. hi), avec pas de couleurs, 
pas de photos et pas d explica- 
tions La couverture cul-cul est 
touiours de Moebius-i idoie. lout 
comme le carton d'embailage. les 
prospeclus el les calegons des 
vendeurs de chez Matra 
Tout laux ' 

PERIPHERIQUE 
ORANGE 

J'ai teste pour vous les penphen- 
ques dispombles pour I'Alice 90 
un lecteur oe casselte rouge fa- 
b'.que a Hong-Kong Toe le plas- 
toc ' D' autres questions ? 
Tout faux ! 

LOGICIELS 
ARC-EN-CIEL 

Ediciel. enfant nature! de Matra et 
d'Hachette. ouvre evidemment le 
tir. En plus de ses programmes 
pseudo-pedago-didacticiels habi- 
tuels. les ingenieurs mlormali- 
ciens patentes de cette excellente 
maison nous ont fabrique quatre 
jeux originaux. D'abord un jeu 
d'aventure de 7 Ko (je dis bien 7 
Ko. 7.000 octets ') en basic dfi- 
nomme en loute simplicity "Le 



sphinx dor" consternant En- 
suite "Casse-tete dans le metro". 
23 144 octets de teste debi'e. mai 
ecnl dans un basic non structure 
et avec un graphisme de debutant 
attarde iamen;ab e Entm. deux 
neurons de i mieiiigence logicieiie 
Irangaise un Omeiio el un ieu de 
Dames mmabies 



Vili Nathan nous propose 
sempuemels alphabet el ai 
muiiip'ication el 'u aussi. u 
d une onginaliie impressionnanie 
un Soiitaue ' 



<•:. 



Inlogrames voit rouge et eduque 
a toul va. un cartabie rouge (be- 
lote 'i de quatre logicieis educa- 
ttls tail meme partie de sa 
gamme Le 'Pays des six Lys' est 
ie seui ieu de ce tabneant. heu- 
reusement ' 

Loncieis lail ce qu'il peut avec 
cette machine, et il peut peu ' 
Galaxion Chenille Inlemale 
Bounzy et Crocky ne valent pas le 

detour 

Sprite nous tail un coup a sa ma- 
mere: un ieu d arcade qui repond 
au |Olr nom de "Galixion* Amu- 
sant. non '• Sprite pompe su' 
*Gaiaxion* de Loncieis qui lui- 
m6me pompe sur "Galaxian* des 
amencams H reste "Guluxion*. 
Geiexion" et 'Goioxion". apres il 
va lalloir engager des creatifs 
pour tiouver des noms aux leg - 
cieis 



PRIX C AC A 
D'OIE 

L'Alice 90 dans sa version nor- 
male est presente normalement 
dans un carton normal compre- 
nant la console normafe, le cable 
peritel normal, (alimentation s6- 
paree normaie et deux bouqums 
normaux. Le prix normal est de 
25 billets de cent francs sur les- 
quels on vous rendra entre 5 et 
50 francs selon les boutiques. 
Mais, il y a une autre merveille 
dans le pays d'Altce: les coffrets ! 



(NDLR: Quand meme. il a 
faltu la taire celle-la I Alice, 
pays et merveille: lout 
faux It 

Le co'tret Alice 90 est rouge ce 
beiote !) et coniiem outre ia 
conhguration normaie evoquee so- 
hremen: ci-dessus ie tecteur de 
cassette rouge (et dix de der ') 
et cmq logicieis Et ie tout vous 
coutera 1 000 Sales de plus ' 
Question: un tecteu' de cassette 
noir d Euromarche a 190 francs 
plus cmq logicieis a 90 irancs. 
plus une maiette en piasuque 
mou a 20 baiies ca lait 1 000 
francs ' 
Reponse: tout laux ' 




lis sont venus. its sonttous la I 
Lillen avec son nieme "Pratique 
du micro-ordinateur ..." des edi- 
tions Radios. 

Zaks avec son nieme "Premiers 
programmes sur. ' des editions 
Sybex. 

Deconchat avec son nieme "102 
programmes pour " des edi- 



tions PSl 

Et les autres aussi: quatre d'Ha- 
chette (bonjour maman). quatre 
de Sybex un de Nathan et un 
d Eyrolles 

Qje de i original et du costaud ! 
Tout laux ' 

AVENIR ROSE 

L avemr ah I'avenir ' La c'est 

ban. les p'oiets c'est facile et c.a 

peut rapporier gros ' 

D abora ies classiques. 

FORTH EN ROM: 900 Francs, 

Ding ' 

LOGO en ROM: 900 francs, 

Omg ■ 

Lecteur de disquettes 3,5 pouces: 

2 950 francs. Ding ! 

interface Joystick: 250 Irancs. 

sans ies joysticks. Ding I 

Ensuite >es speciaux. Modem 
compatible Minitel. 1.495 francs, 
c'est bon ..) Tout juste. 
Logiciei d incrustation video: 350 
Irancs. Dmg ! Et c'est reparti 
l eiectronique de lincrustation 
video est mcluse dans le 90, mais 
le logiciei vaut plus cher que les 
circuits Tout faux I 

Cbte oy c els, ga arrive aussi: 
traitement de texte, tableur, ges- 
n.:r de lichiers (avec le lecteur de 
disquettes sans doute ? Parce 
que les instructions du basic: tin- 
tm '). ieu d'aventures. de strate- 
gic, de simulation economique et 
m^me un Monopoly. Le tout 
prevu pas disponible, pas visible 
et entre 1 70 el 195 francs I Pour- 
quoi pas 500 balles pendant 
gu'on y est ? 
Tout faux I 

CONCLUSION 
NOIRE 

Nous sommes toujours bien em- 
betes Apres la lecture de cet arti- 
cle, les gens de Matra seront tou- 
iours francais, mais il serait 
etonnant qu'ils restent charmants 
avec nous I 
Ms vont voir vert ! 
Mais non. Pas vert. ROU-GE: tout 
faux ! ■ 



LA VALISE DE SIR CLIVE 



Lord Sinclair est indeniatiie- 

ment britannique, avec tout 
le flegme que cela implique. 
Alors que de toutes parts on 
I'assaiiie de reproches quand 
a sa voiture. a ses delais de 
livraison, a ses touches amo- 
vibtes. a ses bugs de premie- 
res series, lui reste impassi- 
ble. II va meme jusqu'a 
donner une conference de 
presse pour devoiler ses 
plans. 

Alors que 90.000 Spectrum 
ont ete vendus en Angleterre 
durant las trois semaines qui 
ont precede Noel. 44.000 QL 
ont ete vendus durant touts 
lannee 1984, e'est-a-dire te 
cinquieme des ventes mon- 
diales de Macintosh. "Par 
rapport au Spectrum, c'esl 
peu, mais il taut se rendre 
compte que le QL est trois 
fois plus cher. Mais j'ai bon 
espoir de voir les ventes aug- 
menter sensiblement cette 
annee." 

Et les concurrents ? L'Atan. 
le Commodore, I'Amstrad. 
qui tous ont en projet une 
machine comportant un pro- 
cesses tres similaire, le 
68000 (leQL utiltse le 68008, 
legerement moins perfor- 
mant) ? "L'Amiga de Commo- 
dore pourrait sortir cette 
annee. mais Atari n'a pas 
de machine a proposer, il n'a 
qu'une boite. Nous respec- 
tons Commodore en tant que 
concurrent, mats nous ne 
croyons pas en Atari. Ce qui 
s'est passe au dernier 
Consumer Show a Las Vegas 
etait typique de Tramiel. II est 
convaincant. mais..." 
Et le GEM (ce fameux sys- 
teme d'exploitation cree par 
Digital Research employant 
des icones et utilisant une 
souris) qui devrait equiper 
I'Atari, les IBM PC et compa- 
tibles et la plupart des machi- 
nes tournant sous 68000 ? 
"Les souris sont autanl une 
gene sur un bureau que dans 
la cuisine." II ril. lout tier. "Si 
les clients nous demandent 
d'implanter ce systeme sur le 
QL, nous le ferons. Le pro- 
bleme, c'est que sur 128 Ko 
disponibles au depart, apres 
chargement du systeme il ne 
reste que 32 Ko pour lutitisa- 



teur. C'est te m6me problems 
que sur le Macintosh." Bon. 
pas de GEM sur le QL. 
Des plans ? Un peu. mon 
neveu I Des valises pleines I 
Un petit invenlaire ? Ailons-y . 
Un ordinateur base sur le 
processeur 68020. veritable 
32 bits. 

Un ordinateur base sur une 
nouvelle technologie dont il 
est le createur: lintegration a 
haute densite qui permet 
d'avoir un seul circuit integre 
de gr.ir.de taille dans la ma- 
chine. 

Un equivalent de disque Win- 
chester d'un demi-mega. 
mais sous lorme de Ram non 
volatile, et cent fois plus ra- 
pide qu'un disque dur. 
Un ecran monochrome de 
huit pouces destine a etre In- 
dans un nouveau porta- 




Le nouveau portable en 
question, base sur le Spec- 
trum, mais avec des logicieis 
integres. et une des Rams 
citees plus haut. 
Un authentique ecran cou- 
leurs (pas d'affichage a cris- 
taux liquides. il n'aime pas 
ga) extra-plat. 

C'est tout ? Pour linstant, 
oui. 

Mais au fait. Sir Clive. ne se- 
riez-vous pas le meilleur ? 
"Si. nos ingenieurs ont dix 
ans d'avance sur tout le 
monde." Et les micro-casset- 
tes aussi ? "Qui. c'est une 
technologie de pointe. aussi 
liable que les disquettes." Ah 
bon. Merci. Sir Clive. 



LE SPECTRUM A lOOO BN1ES 

Dans un mouvement de rage ment &u prix de 15 It 



(j'exagere un peu). Sinclair 
vient d'annoncer qu'il cessait 
dorenavant de fabriquer des 
Spectrum 48 Ko, au profit du 
Spectrum plus. Ce dernier 
vient de baisser de 50 livres 
en Angleterre (environ 550 
francs), mais nest plus livre 
avec un pack de cassettes 
gratuiies Aussuol. les mau- 
vaises langues que nous 
sommes se disent: "mais si il 
baisse de 50 livres, c'est tout 
betement parce qu'il ne 
donne plus les cassettes 
avec!" Mais non. car le pack 
se vend maintenant separe- 



Sinclair n'impose plus 
de prix recommande pour 
lancien Spectrum, et celui-ci 




est brade dans ies magasms 
a moins de 1000 francs. 
Sacre Sinclair, tu nous fera 
loujours autanl rire! 



PLUS 
POUR LE SPECTRUM 



Apres Boulder Dash, un 
autre classique des ieux 
vien! d'etre adapte pour le 
Spectrum. Ils'agit cette fois-ci 
du celebre Zaxxon de Sega 
A I'essai. ce jeu revele ies 
qualites graphiques insoup- 
CjOnnees du micro: represen- 
tation en trois dimensions 
reahste. couleurs de tous les 
cotes... Tiens. a propos de 
couieur. les auteurs n'ont pas 
reussi a les gerer correcte- 
menl: le vaisseau est sans 
doute un cameleon vu sa ten- 
dance matadive a prendre la 
couieur du fond. Mais ce 
nest pas le plus genanl: le 
scrolling est tenement rapide 
que I on a le temps de boire 
son cafe entre deux obsta- 
cles successes. Une gageure 
de jouer une partie jusqu'au 




APPLE ALLEMAGNE ET LE MARKETING 

Pour ruser les autres fabri- 
cants de micrtis (Commodoie 
domine largement le marche 
en RFA), Apple propose en 
pret un lie ou un Mac pour 
deux jours ET deux nuits en 
echange de 200 marks (envi- 
ron 700 francs) de caution. Si 
apres ies deux jours vous 
etes convaincus, vous n'avez 
qu'a garder le materiel et si- 
gner un autre cheque. II n'est 
malheureusement pas pre- 
cise ce qui arrive lorsque Ion 
rend le materiel en-dehors 



du delai. peut-etre gardent-ils 

lea 700 tronco pour fincnoor 

ies campagnes de pub fran- 
caises a moins qu'ils ne se 
contentent de la caution... 
Vous voyez ga, le Mac a 700 
francs I 




Suite de ia page 28 

- Desole gamin, je ne vous 
connais pas... 

- Waon Petpei Louis I Moa je 
vous connais ! J'ai voyage le 
monde partout autour de lui, et 
je souis alle ptousieurs fois en 
France, cette jolie petite pays. 
Soudain. il regarde de droite et 
de gauche, fair mefiant Puis il 
s'approche de moi el murmure 
sur le Ion de la confidence; 

- Je souis un ami du VIEUX ! 
C'est loui qui m'a dit que vous 
veniez enqueter sur le Gang 
des Puces. 

j'interloque quelques secon- 
des avant de reagir. 

- Et c'est pour ga que vous 
mavez enleve ? 

II prend un ton tres convain- 
cant. 

- Yes t Ouiii... Je souis tres 
documents sur le Gang des 
Pouces. Mais ret. tout le 
monde me connalt ! Je vais 
vous aider dans voire enciuete. 
old man, mais je devais vous 
rencontrer INCOGNITO ! ! 
Mick Bidouille m inspire 
confiance. et bras-dessus 



bras-dessous il mentrafne a 
linterieur de son immense 
maison. Le hall d'entree est 
aussi marboreen que lexte- 
rieur et si Cecil B. De Mille 
etait la. il I'amenagerait certai- 
nement en coin toilettes. 
Mick pousse une porte devant 
mon nez et m'invite a entrer. 
Devant mes yeux fatigues et 
ebahis, une cinquantaine de 
pupitreuses s'agitent sur des 
claviers de micro-ordinateurs. 
Mick est tres loquace, Son 
debit de paroles depasse le 
mot-cube secondes. 




- Je vais vous faire de: 
lations Peipei, Pendant des 
annees je me souis occupe de 
la rubrique Froggy Tricky du 
Washing-Machine Post. J'ai eu 
affaire a Harry Kong et son 
Chip's Gang. Je SAIS OU il se 
cache I ! 

(a suivre d'urgence la semaine 
prochaine.) 



HEBDOGICIEL 27, ru 


e du Gal-FOY 75008 PARIS 






VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 420 FRANCS POUR 52 NUMEROS AU LIEU DE 


52 x 10 = 520 FRANCS. ABONNEMENT POUR 6 MOIS 


220 FRANCS. Pour letranger 


-- BO F. 


pour 1 AN 






* 40 F. 


pour 6 MOIS. 


NOM: 


MATERIEL UTILISE : 






PRENOM : 


CONSOLE : 






ADRESSE : 


PERIPHERIOUES : 






BUREAU DISTRIBUTEUR ; 


REGLEMENT JOINT : : 


CHEQUE a CCP 



HIPPOJOYST 

C'est Japonais, c'est un des meilleurs et des 
plus costauds que I'on connalt: trots boutons 
de tir, une bonne prise en mains et quatre ven- 
touses pour le colier definitivement sur la 
table de la salle a manger (Super pratique pour 
les repas I). Prise standard pour Amstrad, 
Atari, Commodore 64, MSX, Vic 20. Compatible 
avec les interfaces d'Oric et de Spectrum. 
Pour Apple, Thomson et Texas, Tlntln: ca ne 
marche pas ou alors II faudra bidouiller ! 
Ah, au fait, c'est 100 balles... 
C'est bon, c'est pas trop cher ? Envoyez vos 
sous apres avoir rempli le bon de commando 
ci-joint. Le ministre du commerce exterieur du 
Japon vous remercle blen bas. 


-4 




•%» 


*4t4*4*<r4»lHKr44 
Bon de commando a decouper et a renvoyer a 
SHIFT EDITIONS, 27 rue du General Foy 75008 
PARIS. 




DATE: PU-100F..X-.- -F 

halt <f envoi- +1SF 

cheque joint : TOTAL - ._ F 



HEBDOGICIEL SOFTWARE 

Le logiciel a sa juste valeur 

Les nouvelles boites jaunes sont arrivees ! Six logiciels francais de qualite par cassette et un prix raisonnable : des 
produits signes SHIFT EDITIONS ! 
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e premier grand Wargame pour One 


120 francs !< 
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"Dork cryslal" esl sans 

ecnls pour TI99 vofre 
cuperer des fragments 
la labynnlhe qui esf le 
pour tous ' 



pyramide, 

cartes, una centrale 

dans une jungle hoslne en a 
tueux tableaux 120 francs 
en basic etendu. 
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Desieuxd'arcadea gogo change; le 
dezAJ'beftetKongdansleur pyramide 
tiarement nouveau. const mis ez 

quila ; plus vous en buvez. plus vous 
aesamorce; facilement les bombes 
de "Caramba"! Six sup er-pra gram- 
mes pour 1 20 francs 



joueurs. 
d'or". un 

pour 120 



ichine Viennent ensuite la 
vec "Puzzle" et la stategie 
Hi" oil vous pourrez organi- 
competitions jusqu'a 5 

jeu graphique en 3 
super-programmes 




+ BON DE COMMANDE A REN- 
* VOYER A SHIFT EDITIONS, 27 
T ru« du Gal Foy 75008 PARIS. 



. ORIC N° 4 

* ORIC N" 5 

jL. SPECTRUM N*1 

^ TEXAS N° 4 

If ZX 81 N° I 

,. M05N°1 



DEUX SUPER-CONCOURS PERMANENTS 

20 000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE pour 2 
personnes en CALIFORNIE au meilleur logiciel du TRIMESTRE. 



s de plus! 
Rlen de blen original dans 
cette tormule, pourtant nous 
•saayons de folre quelque 
chose de different: nous orga- 
nleons un concoura perma- 
nent tous lea mols et tous lee 
trlmestreel Et avec des prix 
dlgnes des programmes que 
vous allez nous envoyer! 
De plus, ce seront lea lecteurs 



sur la grille recapitulative 

mensuelle. 

Pas de jury, pas de decision 

arbltralre, HEBDOGICIEL n'ln- 

tervenant que dans le cholx 



CAIS. SI votre programme 
n'eet pas tout a fait au point, 
un de nos speclallstee vous 
dlra comment I'amellorer pour 
pouvolr nous le proposer a 
nouveau. 

Pour partlclper, II vous suffit 
de nous envoyer vos pro- 
grammes accompagnes du 
bon de participation alnsi que 
toutes les explications necos- 



salrea a lutllisation de ce pro- 
gramme. 
Bonne chance! 

Reglement: 

ART.1: HEBDOGICIEL organise 
de facon mensuelle et trimes- 
tneiie un concours dote de prix 
recompensant le meilleur logiciel 
du mois et du trimestre. 
ART.2: Ce concours est ouvert 
a tout auteur de logiciel quelque 
soil le materiel sur lequel il est 
realise. L'envoi dun logiciel en 
K7 ou disquette accompagne 
dun bon de participation de- 
coupe dans HEBDOGICIEL 
constitue I acts de candidature. 
ART.3: La redaction d'HEBDO- 
GiClEL se reserve le droit de 
seleciionner sur la base de la 
qualite et de I'originalite les logi- 
ciels qui sont publies dans le 
journal. 

ART. 4: Ce sonl les lecteurs qui, 
par leur vote, determinent les 
meilleurs logiciels mensuels et 
trimest'iels. 

ART.5; Le pnx alloue pour le 
concours mensuel sera remis au 
pfus tard un mois acres la clo- 
ture du concours mensuel. 



ART. 6; Le prix alloue pour le 

concours trimestriel sera remis 
au plus lard un mois apres la 
cloture du concours trimestriel. 
ART. 7: Le present reglement a 
ete depose chez Maitre Jauna- 
tre 1 rue des Halles 75001 
PARIS. 

ART.8: HEBDOGICIEL se re- 
serve le droit d'interrompre a 
lout moment le present 
concours en avisant les lecteurs 
un mois a van I. 

ART. 9: La participation au 
concours entraine I 'acceptation 
par les concurrents du present 
reglement. 



Sera declare gagnant le pro- 
gramme qui aura obtenu le 
plus fort pourcentage de vote 
par rapport a la totalite des 
programmes recus pour un 
me me ordlnateur. 
Alnsi, pas de tavorltlsme pour 
les ordinsteurs plus pulssants 
ou tres diffuses. 



BON DE PARTICIPATION 



Prenom 

Age Profession 

Adresse 

N telephone 

Nom du programme 

Nom du materiel utilise 

declare etre I auteur dece programme qui n est m une imitation ni une 
copie d un programme enstant Ce piograrr.me reste ma propnele el 
I autonse HEBDOGICIEL a le publier La remuneration pour les pages 
publieessera de 1000 francs par page (un programme n occupant pas 
une page entiere sera remunere au prorata de la surface occupeel 



Le programme dort etre enpedie sur support magnetique (cassette o 
disquette) accompagne dun descnplif delaiiie du materiel uliiisf 
dune notice d utilisation du programme Les supports des prograrr 
mes publies sont conserves n oubhez done pas d en fai'e une copif 




Stephane CALLEGARI 

gagne les 20000 F. du 
concours mensuel pour 
son programme AL- 
PANORIC pour ORIC. 



UN DEULIGNE CA VA, SEPT DEUUGNES BON JOUR LES DOIGTS ! 

Hourra ! Les deuligneurs onl beau trainer la flemme Le Ires celebre Yvan HARY, nouvcllc victime du virus 

d'aeier, ils rdagissent encore au bon moment Conti- deuligne reforme n'ifnporte quel nombre reel en frac- 

nuei. sinon le lot des gagnants deviendra une photo lions de nombres entiers: un beau tour de passe- 

dedicacee de Mireille Thieuma. Vu ? Bon. Accessits passe mathemalico-intormatique. 
presentez-vous. 



Yves PELTIER n'a pas voulu rester derriere et delivre 
son listing: un Input generalise compilable (lauteur 
insiste !) 

▼ Listing Apple 

10 HOME : UTflB 10: POKE 34,33i PHIWT 
U?f. UTAB 12i POKE 36,10: PRINT 
"WEI N'IMPORTE DU01 ! *|! CALL 

- 10944j«« - "| FOR I? - 312 
TO 767-.UZ • PEEK<19): IF IB - 
THEN 10 

20 Ul* • UZ* • CHR« <U2): NEXT 19 



Est majeur. Pour repasser en caracteres normau> 

(sans peidre les nouveaux): 

POKE & H2073.& HFC POKE & H2074.& H9E 



▼ Listing Canon 

t E-l :INPUTG:IFABSr.G]-INTCABSr.G))OaThEN 

B-IHICG):H-G;|-INTtM];A-lELSEQ-G:END 

I M-UCM-]}Jt-INTCh):C-B*|--fa:ft-B:B-C:F-E 

*I,D:D-E:E-FMFfiBStG-C/FJ>lE-l?TMEN2 

•k 

de (lem- 
preuve: 

T Listing Amstrad 



T Listing Orlc 

1 HIRE8'TEXT'FOKI"4&B88T046335>PO 
KEI , 255 i NEXT i FOR I -46352T046384 i PQ« 
EI,9>HEXT 

2 POKE 704 , 3 ' FORI-1T038 i P0Kt4BaBB. 
8'CUR8ETI.I,3'CIRCLEI,I'PCKE48eui3, 
31'PRIHTIj 'NEXT 



T Listing Thomson MO 5. 

5 CLEAR. 491 B9: FORI =BT0768: PQK£4ei9B* I. PE 

£• '64678* I > i NEXT I : P0KEI.H2B73, IH9C : PDKEIH 
ie74,t.HFE:CLS:PR]NT-CARACTERE:e=F0K0;l=C 
OULEUR CODE ASCII>3I" 

18 IMPUT"ASCII-fA: IFA=8THEKENDELSEF0RItl 
T08:B=e:PRINT"L:"; I;" -; :B*=IMPUTf <8 > : PR 

INTA*!FORJ=8T07:B=B*(ASC(t1ID«{A«,a-J, 1)) j, 

-48'<-.2-J)iMEXTj:P0KE48I9e*(<A-31)l8-I), w 

E:hexti:attrbi,i:primtjprintchr«a>:attr Encore un invite de marque cette semaine: Jean- 
Pierre LALEVEE vous invite a placer votre cassette 
.a. preferee dans le lecteur du C64, apres avoir execute 

w le programme Ouvrez grandes vos oreilles et pous- 

Rene DUPONT n ignore pas les sams pnncipe de la sez le son de la tele a fond 
conliance en nos saints qu il garde precieusement en 



pe.e:coToie 



son sem Ecoutez done (aptes avoir branche i 
ampli) 

T Listing TRS 80 

1 CLSlPRINTS*7a, ■•••UHEN THE SAINTS"*"" 
POKE 167B3,2eei POKE ISTMi 1 25 IF0HI-322BBT 
032223 ■ READA ■ POKE I , A' NE >T :FOR J- 1 TO<.3 ! 
READB:P0KE32 232, B: P0KE322«M., IBBsNAME: 
NEXT : RESTORE : G0TO1 

2 DATA217,3B,B,'>6, 127,68,62. 1.211,233, 
16,234,68,62,2,211.233,16, 254. *3, 32, 23<J, 
217,201,218,163, 133, lAB, 140,210, lt.3, 133, 

163, 163,210. 



T Listing Commodore 64 

1 FuRI=0TO20 PEhDFi P0KE43l52+I.R:NEXT 
SVS4915Z 

2 Df\TfM?3. 142 j 2, 268, 1^. 173. 13^228,41 , 1! 

248.2.163, 15.141,^4.212,76,8: 192,3610 
JVS2861 



Salut ben d'eheu nous et a la revoyure 



218, 165,! 



185, IBS, 163, 165, 1B3,; 
,155, 133, 165, 1 



FOR I' 



: BEAD A : S-S** 



DEULIGNE: UN PETIT COUP DE BALAI! 

Le listing du copieur cassette pour C64 publie dans 
le njmero 69 etait particulierement impossible a re- 
corjiei En voici une version en OATA qui vous sim- 
plifies 13 vie 



20 IF S M446 THEN PRINT "ERBEUP DANS 

LES DATA" END 

30 DATA 169, 1. 170, 173,60, 3. 74, 1»S, 149,0, 

]:.0.::«,io?.i67,i70,ii'»,64,3.i57,iaj 
*o data iM.:o:,:oi:.;<7,u',i«5.i7o,u'. 

ie7.160,19S.3:.:«,;53,L73,Bl.3.l33.:5l 
5i DATA :- , ;.6:.3.!33,:i:.le».;-5l,17«.a3, 
3,!7;,4*,3.7ii,;;i,:«5,r34,!34,;3»,:3« 
□ OATA :3*,r34,l(9,57,170.l(:9,:!S,3.l57, 

'=.i9j.:o: "" " 



FOKE .- 



GET A 



(3* 



^ 
# 
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COMMODORE 64 

VENDS COMMODORE 64 PAL 
+ magneto 1530 + TOOL 64 ■ 
programmes de jeux * docu- 
mentation el livres ; 3500 F. 
Christophe MARLOT. region de 
Calais (62). Tel:(21) 35 25 70. le 
soir, 

ECHANGE programmes jeux el 
utiliiaires pour COMMODORE 

64 sur K7. Dominique LABBE. 
LAVIGNE Verel de Monlbel 
73330 PONT DE BEAUVOISIN. 

CHERCHE nombreux commo- 
dorisles (COMM.64 et 128) pour 
echanger des programmes sur 
K7 e! pour creer un dub dans le 
sud de la region parisienne 
CHERCHE egalement impri- 
mante pour COMMODORE 
64. Jean Luc MONTAGNIEH 
Tel: 350 11 29 

VENDS COMMODORE 64 (lam- 
bant neu! II! : 2200 F. lecteur de 
disquettes 1541 : 2500 F. Mr 
KOSKAS. 5 bd Saint Marcel 
75013 PARIS. Tel: 337 57 43. 
(si repondeur laisser coordon- 
nees). 

CHERCHE correspondanls pour 
echanger K7 de jeux et docu- 
mentation sur le COMMODORE 
64. David JARRY. 4 rue Valen- 
tin DEBAILLV 80330 LON- 
GUEAU Tel: (22) 46 57 60. 

VENDS COMMODORE 64 * 
moniteur couleur PAL SECAM 
+ lecteur K7 + 2 joysticks * 
autol. basic * 15 logiciels de 
jeux + 8 livres : 6000 F. Yves 
COQUEL. 2bis rue de la Jarre- 
liere 48000 MENDE. Tel: (66) 

65 18 48. 

ACHETE COMMODORE 64 
avec lecteur de cassettes. Tel: 
636 24 14 . demander Benoit 
COLARDELLE. apres 17 H 30. 

ECHANGE programmes utiliiai- 
res pour COMMODORE 64 + 
programmes de jeux (Zaxxon. 
Fort apocalypse. Fichier etc...). 
VENDS jeu d'echecs Grand 
master : 120 F. + livre,"102 pro- 
grammes pour COM.64" : 60 F. 
Stephane DROBINSKI. Tel : 
(74) 97 18 56. apres 18 H 30. 



VENDS COMMODORE 64 + 
lecteur K7 + drive + Joystick + 
livres + cables + Bruce lee dick 
+ ORDINATEUR ind.viduel 54 a 
66 : le tout 5900 F. a debattre. 
Stephane LICHINI. 50 Clos st 
Girons 13290 LES MILLES. Tel: 
16(42)24 20 90. apres 16 H. 

VENDS originaux sur K7 pour 
COM.64. (Stix. Exterminator. 
Hustler, Pilot 64 et 3D Glooper) 
: le tout 350 F. a debattre. 
CHERCHE K7 Spitfire ace. 
Herve GARCIA. 273 avenue de 
Fontainebleau 94320 THIAIS. 
Tel {1)686 73 56. 



CHERCHE possesseur de 
COM, 64 et VIC 1541 pour 
echange de programmes educa- 
tits. Michel ROUSSEAU. 47 Ha- 
meau de la Jonque 91650 
BREUIUET. Tel: (6) 458 48 70. 

VENDS COMMODORE 64 (ga- 
rantie 6 mois) + perilel + moni- 
teur et 2 joysticks + magneto + 
livres (a la decouverte du COM. 
64) (les ecrans du COMMO- 
DORE) + 250 jeux et 50 utiliiai- 
res dont (The tool. Simon basic, 
Forth etc..) Prix interressant. 
Fabrice DUCATEZ. 16 rue V. 
Scotto 59760 GRANDE SYN- 
THE. 

VENDS COMMODORE 64 + 
disquettes + moniteur VN 
Prince + TOOL 64 + Pmball 
construction -t- Everest ascent + 
disquettes + nombreux manuels 
: 7600 F. a debattre. N. THE- 
ROND. 46 130 BRETENOUX 
BP 3. 



VENDS COMMODORE 64 + 
magneto + nombreux logiciels 
le tout avec emballage d'origine 
: Prix a debattre, (aire offre a : 
J.F. HERRY 43 rue Chaude 
78240 CHAMBOURCY 

ORIC ATMOS 

VENDS ORIC 1 + perilel * 
cables et alim. + manuel + 
livres + K7 : 1500 F. a debattre. 
Laurent LABATUT 39 rue du 
Prat Oessus Plaisance du Touch 
31170 TOURNEFEUILLE 

Tel:16(61) 86 42 86. 

VENDS ORIC 1 48 KO + ali- 
mentation i perilel * cordons 
K7 + K7 * livres initiation basic 
et ass * K7 jeux et ulilit. (50 
titres) * rout, copie programmes 
proteges + nombreux listings : 
2500 F. P. GUILLET. 7 avenue 
de Saint Just 13004 MAR- 
SEILLE. Tel: 16(91)50 02 75. 

VENDS ORIC ATMOS 46 KO + 
peritel avec alimentation * mo- 
dulaleur NIB + cordon magneto 
+ livres + 8 K7 utilitaires de 
jeux (Xenon, Aigle d'or etc..) le 
tout: 2000 F. + magneto : 250 
F. Marc DURASK. D8 allee St 
Exupery 92390 VILLENEUVE 
LA GARENNE. Tel: 798 40 46 

VENDS ORIC 48 KO 8 cou- 
leurs haute resolution graphique 
sous garanlie (juin 85) * 10 
cassettes pleines de program- 
mes (jeux educatifs. mathemati- 
ques.) preenregislres ou inven- 
tus + 1 manetle de jeu (Manche 
a Balais) SPECTRAVIDEO + 1 
interface de branchement. Le 
tout: 2200 F. Thibaull RUFFAT. 
Tel: (1)704 97 43. 

VENDS ATMOS + fil antenne + 
peritel + 25 K7 de jeux (Hobbit, 
Xenon, Tyrann, Scuba, Lancelot 
etc..) + n" 3 de Theonc ; 2000 
F. Denis ANCEAU. 9 rue Frede- 
ric Bazille 34000 MONTPEL- 
LIER. Tel: (67) 06 46. 

VENDS ORIC 1 48 KO + peritel 
+ alimentation + manuels t 
livres et revues + nonbreux pro- 
grammes + 12 K7 jeux origina- 
les. Le tout: 1850 F.Nicolas GA- 
RANCHER. Tel: 904 50 01. 
I' apres midi. 

VENDS ATMOS 48 KO : 2400 
F. + T.V. NB. portable : 1000 F 
-t- modulateur NB. : 300 F. + 
prise peritel avec alimentation : 
70 F. + programmes jeux + 
manuels (rancais el anglais + 3 
livres :167 F. Jean LOUISOT 
LYON 69007. Tel: (7) 858 37 
67. 

VENDS ORIC 1 + peritel + cot- 
dons -t- alimentation + 6 livres 
+ 50 jeux du commerce a choi- 
sir parmi 150 : 1800 F. Tel 
(49) 68 68 92, 

VENDS ORIC ATMOS 48 KO + 
magneto + nombreux livres + 7 
K7 de jeux 4 1 K7 contenant 
plus de 100 programmes dont 
programmes HebrJo. + alimen- 
tation + cables :3000 F, 
Thomas BOUSSER. 57500 ST 
AVOLD. Tel: (8) 792 61 97, 
apres 17 H 15. 

VENDS console VISMO pour 
ORIC ATMOS: 350 F. + ma- 
gneto K7 RAD1ALVA sous ga- 
rantie : 300 F. doc u man tat ion 
ORIC Prix a debattre, Tel:(91) 
31 71 94. 

VENDS ORIC 1 48 KO + peritel 
+ logiciels dont ( Aigle dor. De- 
fense Force, Kikekankoi etc..) : 
1900 F, ou avec interface peritel 
: 2200 F. Roger BENET. 4 allee 
d'Amblonville les lorets de 
franco 77176 SAVIGNY LE 
TEMPLE. Tel: 063 65 48. apres 
17 H, 

VENDS ORIC 1 48 KO + peritel 
+ adaptateur NB, + cordons + 
80 logs. + revues + livres : 
2200 F. Tel: 681 18 54 deman- 
der J.Louis. 

ECHANGE 120 programmes 
pour ORIC ATMOS (jeux. aven- 
tures, utilitaires...) centre un 
TRS 80 modele i niveau 2 ou 
un Tl 99 + basic etendu. Lau- 
rent PELOU 16 rue BERYU 
49400 SAUMUR. 



VENDS SHARP PC 1500 + me- 
moire 8 KO + nombreux pro- 
grammes + 5 livres : 1500 F. 
Jean Sebaslien ANTON. 82 rue 
du General de Gaulle 77000 
MELUN. Tel: 16 (6) 452 01 76. 



VENDS SHARP PC 1251 + CE 
125 + 2 livres + livre "langage 
machine du PC- 1251" : 1200 F. 
Mr VERTENDE. Tel: 244 06 02. 
aux heures de bureau. 

VENDS SHARP PC 1500 * im- 
primante + extension 16 KO + 
lecteur de K7 + 5 K7 de pro- 
grammes du commerce * 7 
livres sur le SHARP * docu- 
mentations + 2 rouleaux + 1 
jeu de stylos + malette + ali- 
mention + cordons (valeur 6800 
F.) vendu 3500 F. Daniel 
HAURO. 12 Square Velten 
13004 MARSEILLE Tel: (91) 08 
19 72. 

VENDS SHARP PC 1245 +■ ma- 
nuel * interface K7 CE 124 (va- 
leur 900 F ) vendu 700 F 
Franck LECHEVALIER. 16 rue 
Victor Hugo 78000 VERSAIL- 
LES. Tel: 950 58 83 apres 19 H. 

VENDS SHARP PC 1401 (11 
mo is de garantie) * interface 
cassette SHARP CE 124 + 2 
piles neuves + manuel dappli- 
cation. Le tout : 900 F Tel: 345 
07 91. 

VENDS SHARP PC 1211 + in- 
terface imprimante CE 122 ♦ 
adaptateur : 600 F. M. JOUS- 
SEAUME. 3 rue des Charmes 
44230 ST SEBASTIEN. Tel: 34 
33 78. 

VENDS SHARP PC 1500 + 
livres de programmes et aide 
programmation + ext. 4 KO : 
1400 F. a debattre. Thierry MIN- 
GUEZ. Tel: (3) 975 91 02 apres 
18H30. 

VENDS SHARP PC 1251 (sous 
garantie) + manuel + connec- 
teur magneto + 30 programmes 
environ (K7 & livres) + cassette 
C 60 vierge : 700 F, JM, 
CHNEIDER. MARSEILLE Tel: 
16(91)70 90 90 

CHERCHE contact PC 1500. A. 
DEMAILLE Tel: (20) 95 00 13 
apres 18 H. (en semaine). 

T07 

VENDS T07 + basic + 16 KO 
+ manetles + magneto + Pul- 
sar II + Elimin. + II » Pmgo * 
Chasseur + Carte France ♦ 
Noix coco + Roger et Paulo - 
manuel el livres sur T07, En 
prime nombreux programmes de 
I'hebdo... Le tout pour 3390 F. 
A. DEMAILLE 12 rue Hocedez 
S59139 WATTIGNIES, Tel: (20) 
95 00 13(NDLNC : Dis done toi 
p'tit mec , lu vas en passer 
combien de douzaines d an non- 
ces !!!) 

ACHETE EXT, 16 KO + exten- 
sion jeux + 2 manettes pour 
T07 Pascal THOMAS, 35 rue 
du Soleil 68200 MULHOUSE. 
Tel: (85) 42 72 32. 

VENDS T07 + memo basic + 
ext. 16 K + 2 manettes + Trap 
+ Pictor + magneto + 20 pro- 
grammes sur K7 + 2 livres sur 
T07- Le lout : 4000 F. Tel: 709 
63 42. apres 18 H. 
VENDS T07 unite centrale + 
basic + extension + manettes 
et synthe : 3400 F. + logiciel 
pour T07 + pictor : 450 F, 
Jacky SENECHAL. 30 rue Cou- 
tellier 60600 CLERMONT 
S/OISE. Tel: (4) 450 05 42, 

VENDS T07 + cassette memo 
7 basic : 2500 F. a debattre, 
Bruno BOUDIER. domaine de la 
Pinte 39600 ARBOIS, Tel: (84) 
66 19 52, apres 18 H 
VENDS T&7 + basic + ma- 
gneto : 2000 F.+ pour T07, 
T07 70 extension 16 KO + car- 
touche Trap + cartoucne Pictor 
+ extension controleur avec 
mannettes et sortie son + 2 ma- 
nuels d'initiation. Guillaume Gl- 
RARD, Tel: (40) 31 00 61. 
POSSESSEUR T07 ancien 
modele CHERCHE clavier en 
gomme de T07 70. Faire offre 
raisonnable. Tel: (7) 887 00 46 
(region de LYON) te soir. 

VENDS logiciels pour T07: 
Memo 7 Melodia: 230 F. Memo 
7 Trap: 175 F. K7 Pilot: 75 F 
K7 Chasseur Omega: 75 F, K7 
Meteo 7: 95 F. VENDS livres 
pour T07: manuel de reference 
basic T07: 95 F. le basic DOS 
du T07. 60 F. un ordmateur et 
des jeux: 35 F. un ordinateur en 
fete: 35 F. tous les logiciels et 
lous les livres pour T07: 850 F. 
tous les livres - melodia - Trap 
- Pilot pour T07 70: 700 F, M, 
ZANIER 1 avenue de l Hiron- 
delle 93380 PIEREFFITE 



VENDS pour T07 cartouches 

Pictor et Atonium + cassettes 
(Chasseur omega. II lintrus et 
Initiation au langage basic "vol 
3") Prix a debattre Thierry SO- 
MERLINCK. 6 place des Tilleuts 
94470 BOISSY ST LEGER. Tel: 
569 78 20. 



VENDS VIC 20 (SECAM) : 500 
F. + 2 K7 jeux ( Crazy Kong. 
Skramble) 70 F. piece. Tel: (40) 
20 05 18 apres 18 H demander 
Pascal. 

VENDS VIC 20 - magneto i 
autolormation au basic - 16 KO 
VIXEN ~ 7 hvres - 2 cartou- 
ches de ]eux (Lode runner) * 
programmes - manette : 2200 
F. a debattre (valeur 3700 F,), 
Richard LESOURD. LE DES- 
CHAUX 39120 CHAUSSIN. Tel: 
(84) 81 72 03. 

VENDS VIC 20 COMMODORE 
t magneto cassettes * manette 
Quick shot 3 * 4 jeux ■ manuel 
(valeur 3500 F) vendu 2500 F. a 
debattre. Bruno VASTA. 10 
allees des Iris residence du pla- 
teau 94260 FRESNES, Tel: 668 
10 39. 

VENDS VIC 20 COMMODORE 
PAL + manuel d'utihsation + 
cables alimentation +■ joysticks 
+ autolormation au basic (1 
livre + 2 K7) * la decouverte 
du VIC + jeux en basic sur VIC 
20 + K7 de jeux. (valeur 2300 
F.) vendu 1700 F, Marc Antoine 
LUSZCZ 30 rue de Saint Aybert 
59163 THIVENCELLE. Tel: (16 
27) 45 42 83. 

VENDS VIC 20 + 6 K7 + ma- 
gnetophone + 40 jeux + joys- 
ticks + K7 auloformation basic 
+ 6 livres concern ant le VIC 20 
: le tout 2500 F Alain COUR- 
TIER. 16 rue de la Fontaine 
95270 ST PIERRE VIARMES. 
Tel 035 47 44, 

POSSESSEUR de VIC 20 ■* 
ext, 8K RECHERCHE docu- 
ments sur programmation des 
ca racier es avec I' extension. Re- 
tour des documents assure. 
Pascal RIZZA 15 rue du Ven- 
toux 54400 LONGWY. 

CHERCHE loul programmes 
pour VIC 20 + 16 KO. Jean 
Marc DETREZ. 15 allee des 
peupliers 61600 BERCH 
PLAGE, 



TEXAS 

VENDS Tl 99 + magneto RA- 
DIOLA + joysticks + cordons 
(magneto et monitor) + peritel 
+ BE. + mini memoire + 
Echecs + Pole position + Par- 
sec 1- 8 K7 de jeux + 2 livres 
(50 programmes assembleurs) 
indivisible: 3000 F Tel: 959 35 
40. 

VENDS Tl 99 + peritel + 
Secam + ali mental ion + cordon 
magnetophone + 5 modules de 
jeux + 70 jeux sur cassettes * 
4 Ifvres + listings: 2300 F, Tel: 
(94) 62 34 46, 

VENDS Tl 99 + manettes + 
cordon magneto + 15 super 
jeux sur K7: 1000 F. + 6 modu- 
les: 60 F chacun + 30-HE6DO- 
GICIELS: 4 F. piece * BE,: 550 
F, ou le tout: 1800 F. Dan BINA- 
BOUT. Tel: 201 02 19, 

VENDS Tl 99 + Peritel + 
Secam * manettes + Munch 
man + cassette HEBDO N° 1 + 
nombreuses revues + livres + 
programmes personnels + 
divers: 2200 F. + BE, + manuel 
en Irangais + cassette HEBDO 
N" 2 + revue Micro 7 (N° 1 a 
15): 1100 F. oule tout 3000 F. a 
debatlre. Tel: 16 (38) 63 40 36. 
(apres 19 H.) demander Lau- 



VENDS Tl 99 + console + ma- 
netles -i- boitier d'expension pe- 
ripherique - lecteur de disquet- 
tes + memoire 32K RS 232 (S 
& P) + langage Logo II francais 
+ nombreux programmes et 
modules sur disquettes K. RE- 
NARD. Tel: (99)54 02 05. 

VENDS Tl 99 + magneto + Pe- 
ritel + cordons * BE, + mini 
memo, * manuel + Blaslo + 
Lunar Lander II - 250 pro- 
grammes + 15 livres sur Tl, le 
tout ou separe . 'aire offre a 
Eric DAURIS 13 rue H Boucher 
17300 ROCHEFORT Tel: (46) 
99 67 46 



|e ne supporte plus la lenteur a laquelle travaille 

cette machine fermee comme un ceuf, 

qui n'j meme pas su remplacer un vieil Apple-2 e 

dans les laches les plus courantes, |e craque ! 

It- vends, au plus offrant, 

MACINTOSH 512 K 

avec disque extern?, modem, sac de transport, 
nombreux logiciels et 100 disquettes 

Prix : 45.000 F, a negotier 



VENDS Tl 99 - manettes de 
jeux i- extended Basic manuel 
en (rangais et anglais - livre 
pratique de lordmateur Tl 99 ' 
- livre avec 50 programmes - 
basic par soi meme * technique 
des programmes de jeux N° 1 el 
2 * Solar systeme * Lunar 
Jumper * 1 jeux d'echecs* * 
Burger time ♦ Cfiasse aux 
wumpus * Football - Tl Inva- 
ders • Tombstone city: 3000 F 
Ctinstopher BARROT 32 34 rue 
Chanzy 75011 PARIS, Tel: 371 
74 59 He soir). 

VENDS Tl 99 * BE. + magne- 
tophone Tl * manettes de |eux 

* nombreux livres et jeux: 2500 
F. M. MARTIN 30000 NIMES. 
Tel: (66) 21 00 54 (apres 18 H.) 

VENDS Tl 99 * magnetophone 
+ modulateur t cable de liaison 

♦ manetles + livre de pratique 
+ livre de jeu -t 3 modules + 6 
K7 + BE el son livre d initiation: 
Prix interessanl. M. PIGNAL 
Tel: 387 42 40. 

VENDS pour Tl 99 K7 Jungle 
hunt: 300 F. ou lechange 
contre: Pole position. Q'bert. 
Moon patrol. VENDS K7 Burger 
lime: 120 F. Tel: 543 14 45, 

VENDS Tl 99 Peritel + BE. + 
Parsec * Munchman + Tl Inva- 
der * joysicks + cable K7 * 
livre: 2500 F Bao IRAN 33 rue 
Pasteur 94270 KREMLIN 8ICE- 
TRE. Tel: 670 37 86 ( apres 19 



VENDS Tl 99 + moniteur video 
PRINCE + magneto SANYO + 
prise pentel * 7 livres et casset- 
tes de jeux: 2700 F Tel: 16 (68) 
50 19 34. 

VENDS Tl 99 Peritel + modul. 
UHF + cordon magneto, + ma- 
nettes + BE. manuel en (rancais 
+ Gestion exp. + Jungle hunt + 
Burgger time + Parsec et autres 
modules + cassettes et nom- 
breux livres: 3000 F. Michel 
LAISNEZ. Tel: (20) 26 38 39 
poste 47 (heures de bureau). 

VENDS Tl 99 + 5 modules 
(BE., Parsec. Echecs. Demon 
attack, Musik maker) + 5 livres: 
"jeux et programmes pour I'ordi- 
naleur familial Tl" tome 1 en BS. 
et tome 2 en BE. " la conduite 
du Tl 99" "pratique de lordma- 
teur (amilial Tl" "50 programmes 
Tl 99" + un double cable de liai- 
son cassette *■ 1 K7 d'introduc- 
tion au Tl 99 en BE. le tout: 
2500 F. Tel: 16 (7) 885 32 01. 
(apres 17 H.). 

VENDS Tl 99 + clavier + boi- 
tier extension + cartes 32K RS 
232 + modulateur TV + prise 
perilel + cable magnto + 2 ma- 
nettes + magneto + ext. basic 
+ Gestion Fichier introduction 
au Tl n° 1 & 2 + initiation aux 
programmes de jeux n° 1 & 2 + 
mini memoire + initiation aux 
langage assembleur + video 
gamme 1 : 6000 F. a debattre. 
M. SEON 36 rue du 8. Sauvage 
42290 SORBIERS. Tel (77) 53 
67 92 (apres 20 H.). 

VENDS module pour Tl 99 
"Alien Addition": 90 F. + cas- 
sette "Le Rubis Sacre": 50 F. 
Guy AYELLO. 21 rue Anatole 
France 81400 CARMAUX. Tel: 
(63) 36 49 53 (apres 19 H.). 

ACHETE pour Tl 99 boitier dex- 
tension peripherique avec exten- 
sion 32KO + controleur et unite 
disquettes. Faire offre a: Gerard 
LEBON. Chemin des Montasnts 
54690 EULMONT. Tel: (8) 322 
64 23. 

ACHETE pour Tl 99 modules 
Adventure + Tunnels ot Doom 
+ Pyramid ol Doom - autres 
modules ou cassettes Adven- 
ture Christophe SPIELMANN 4 
rue abe F Pierre 57070 METZ 
VANTOUX. 



RECHERCHE pour Tl 99, BE. • 
manuel en Irangais: 400 F. 
maximum Tel: 846 04 94 (apres 
19 H). 

CHERCHE pour TI99 genereux 
donateur d'l traduction livre Tl 
extended basic USA' original re- 
tourne. ASSOCIATION DE 
BEUX BEUX 57580 REMILLY 

CHERCHE cable magneto t 
lecteur enregistreur * module 
BE. pour Tl 99. toute proposition 
etudiee si prix raisonnable. Luc 
AMIMER. 11 rue Adrien Presse- 
mane 87000 LIMOGES. Tel: 
(55)33 14 84 (apres 18 H.). 

ACHETE pour Tl 99 extension 
BE. avec manuel en Irancais: 
450 F. maximum. Ricfiard RE- 
VUELTA. Tel: (38) 54 49 56 
(apres 18 H ) 

CHERCHE lecteur de disquetles 
(unite interne) pour Tl 99 PHP. 
1250. Tel:(6) 941 32 61. deman- 
der Didier, 

CHERCHE pour Tl 99 module 
extension + lecteur disque sou- 
pte + memoire 32 K + module 
jeux etc (meme en panne). 
Faire offre a; Franck HARMANT. 
3 allee Paul Gauguin 13880 VE- 
LAUX, Tel: 16 (42) 87 98 47 

CHERCHE pour Tl 99 livre Iran- 
cais pour BE Didier DOUTEAU 
11 Grand rue 85620 ROCHE- 
SERVIERE. 

CHERCHE pour Tl 99 Editeur 
Assembleur -t mini memoire + 
Terminal Emulator II + eventuel- 
lement autres modules. M. 
CROZET 15 8. Palissy 16340. 
LISLE D'CSPAGNAC. Tel: (4fJ) 
69 02 96. 

CHERCHE contact avec pos- 
sessors Tl 99 Spour echanger 
des programmes en BS, et BE, 
Alain SLOT, 5 avenue F. Gil- 
mant 1390 ENGHIEN, BELGI- 
QUE, 



VENDS 1 moniteur vert zenith : 
900 F, 1 memopack HRG : 600 
F, memoire 16 KO ; 290 F, carte 
sonore : 350 F, generateur de 
caracteres : 390 F. Le tout : 
2530 F, (valeur 2692 F.), Eric 
BRUNET, 17 rue Bonaparte 
75006 PARIS, 

VENDS ZX 81 + 16 K + carte 
graphique et sonore AGB (sous 
garantie) + Reset + 7K7 + 200 
programmes 1K et 16 K + 2 
livres + 1 ZX 61 pour piece de 
rechange + 1 transfo.: 1500 F. 
Thierry 8AILLARD, 131 rue du 
Chemin 62152 HARDELOT, Tel: 
(21) 83 87 70. 

VENDS ZX 81 + 16 K + clavier 
ABS + 11 K7 (Scorpirus, 
Mazogs, T. Rex, Cobalt etc..) + 
3 livres + 4 K7 + 1 ordi 5 : 
1200 F. a debattre. Claude RO- 
ZIER 30 avenue Carnot 94500 
CHAMPIGNY ; MARNE. Tel: (1) 
862 36 42 le soir. 

VENDS ZX 81 + 16 K + ma- 
nuel + Livres : le tout 550 F. 
Ludovic THIRION, Tel: 415 41 
29. 

VENDS ZX 81 +*T.V, NB + 
magneto (sous garantie) + me- 
mopack 16 K (sous garantie) + 
memopack H.R.G. (sous garan- 
tie) + clavier ABS + 5 K7 de 
jeux (Rex, Cobalt. Rocket man, 
3D Defender. 3D Formule 1) + 
10 livres : 2700 F, Gilles LOPEZ 
19 rue de la Paix 33140 PONT 
DE LA MAYE. Tel: (56) 87 12 
53, 

VENDS ZX 81 (sous garantie) + 
extension 16 KO + magneto de 
marque LANSAY + quelques 
livres : le tout 850 F. Christophe 
JACQUES, 11 rue des Allies 
57270 ULKANGE, Tel: 257 09 
41. 



LES SAISONS DU 

CCEUR 

fo ROBERT BENTON 

Avec Sally FIELDS, Danny 
GLOVER, John MAKLO- 
VICH. Lyndsay CROUZE et 
Ed HARRIS. 1h52. 




Oh yeah, cotton pic km 
blues ! Yeah Big Mama, I kill 
my hands, m knees, my 
head, pickin' the goddam cot- 
ton ! But lor once the white 
woman picks de cotton wit' 
us. niggers ! 

Vous zavez bilte ? C'est un 
lllm oli on s'mk tes mams a 
cueittir le putain de colon. 
C'est bien mais c'est un peu 
trop gentll comme film. Vous 
en connaissez beaucoup 
vous des Nolrs qui s'laisaienl 
blen trailer par les B lanes 
dans les annees 30 ? Moi 
non. el surtout pas an Texas 
(KKK not dead !) 
Les pov' Ricains son! tene- 
ment riches qu'y s'sentent 
obliges de laire des films sur 
la terre. les paysans. zarma 
le retour aux sources. Ya en- 
core au moins 2 filrns de la 
meme veine qu'arrivent did 
6 semaines '. 

Alors. y sortent le soir pour 
se payer une toile, y vont voir 
un lllm oil qu'on parte des 
pauvres et ou de i apres ense 
de 29 et y sont contents. Us 
prennent leur dose de bonne 
conscience annuelte. a la 
sortie ya des meks qui loni la 
quete pour la famine en 
Ethiopie. passky savent que 
c'est la qu'y peuvent cueiiin 
ces locdus de spectateurs a 
chaud. 

Paul voir aussi que les pay- 
sans du cinema ricain se sor- 
tent toujours de leur merde a 
force de travail et d'opima- 
trete. Super ! ca c'est bon 
pour le moral, ca conforte tes 
Ricains dans leur rapacite 
Chuis dur ? Suremenl. mais 
realiste aussi. Allez-y, cest 
un bon lilm. tres bien inter- 
prete. mais surtout ne SOyez 
pas dupes, la ense de 29 ca 
a ete la catastrophe poui 
55% des ouvriers et des pay 
sans. Dor me z tranquil tes 
imlormatik c'est la quest la 
thune et t'avenir. 



LA DECH1RURE 
(THE KILLING FIELDS) 

De Roland Joffe avec Sam 

Waterston (le hews blanc) ct 
Dr Haing S. Ngor (le heros 
jaune). Musique de Mike Old- 
field. Photo Chris Menges. 



La Dechirure. ce n est pas seu- 
lemeni celle vecue par le Repor- 
ter (Sydney Schanberg du New 
York Times) Et son Inlerprete 
(Oith Pran) mais aussi celle res- 
senlie par le spectateur partage 
entre une mise en images su- 
blime et une manipulation me- 
diatique pas toujours honnete 
intellecluellement Durant un 
peu plus de deux heures, vous 
voyagerez dans Tenter quotidien 
du peuple cambodgien pnson- 
nier de sa Situation geographi- 
que et politique De 1974 a 
1980 celui-ci a Iranchi tous les 
stades de Ihorreur. passant de 
la neutralite (les americains 
combatlaient alors au Vietnam) 
jusqu'aux massacres les plus 
gratuits De ces sept annees. le 
realisateur a deliberemenl choisi 
de ne nous montrer que les as- 
pects les plus anodms passant 
sous silence tous les mecanis- 
mes gui ont conduit le Cam- 
bodge dans la situation dramati- 
tjue ou il se (rouve encore 
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Semame cooooool! Pas de 
delires ni de SF. ca donne 
plutot dans iagricole avec 
LES SAISONS DU COEUR. 
quest bien. et LA PART DES 
CHOSES. docu francais 
bourre a ras bord de bonnes 
intentions, mais nul question 
artistique. Beaucoup de mau- 
vais. un moyen et un excel- 
lent (1720); A LA RECHER- 



CHE DE GARBO. 7 jours 
charentaises (non. non. ce 
nest pas le petit dernier de 
Tele 7 Jours!). £ moms que 
vos basquettes dappara! 
aient ete au garage la 
smame denvere vous empe- 
chant d'aller voir BRAZIL, qui 
une semame plus tard est 
toujours aussi genial Sur ce. 
boncboir Badabe. bochoir 
Badeboiselle et boncboir 
Bonsieur' 

CLOU 



L'AMOUR EN DOUCE 



d-EDOlARD MOLIXARO 

Avec Daniel AUTEUIL. 
Jean-Pierre MARIELLE. 

Emmanuelle 8EART (qu'est 
'achmenl belle) et Sophie 
BAR J AC. 1h30. 



Mais kesske tu fous. Mol>- 
naro ? Moi qui etait un de tes 
fans, ben chuis decu. ah 
ouais. vraiment Mais oil est 
ta peche de "POUR CENT 
BRIOUE TAS PLUS RIEN" 
ou le fun de "LA CAGE AUX 
FOLLES" ? Bon d accord tu 
dis toi-meme que "Le seul 
vrai probleme du cinema par- 
tout dans le monde. cest le 
script. II n'y a plus de scena- 
riste. " Mais tu es dans le 
meme sac que les autres. Ce 
film-ci ca va a peu pres, mais 
pour PALACE I ! Jcrois bien 
que j'vais my mettre moi 
aussi a ecrire des scenario 
On sail jamais ca peut p I et 
donner kek chose, non 7 
Ya un true sur lequel on peut 
pas te faire de reproche. 




cest le casting, la. chapeau. 
surtout MARIELLE. quelle 
bonne idee de foutre un 
comedien aguerri (avec ses 
tatouages. ses medailles et 
ses cicatrices) avec des 
mecs jeunes I Question his- 
toire. ben. euh. Iidee de la 
call-girl, pas mat. et que ca 
se passe a Aix. ca cest car- 
rem&nt bien. yen a marre de 
Paris et du parisianisme (ya 
que moi que j'ai I'droit de 
I'dire. si les lecteurs de pro- 
vince veulent se latter, pas 
dproblemes. j'ai ma bande). 
mats le reste. . . 

Franchement ya mieux a voir 
cette semaine. mais si qa 
peut vous consoler de son 
lilm precedent quetait vrai- 
ment pas bon. alors... 



LA PART DES CHOSES 



,/ ( - BERNARD DART7GUES 



■ Eh be alors oour une loues 
qu on parte de nous les pay 
sans, ben on est pas mecomeru 
hei" Meme kessten dit toue ' 

- Ob be tu sais moue et I ci- 
nema a par skon vouet a la 
tele ' 

- Ouais mais tu t'renos compte 
Meme. pour une toues qu "y 
mom-em que nous aussi on vit 
flans des maisons en dur 

■ Alors pourquoue qu'y zont 
pas pris des vrais acteurs. hem 
Louis-Gael ? 

■ Ben pour ksa lasse plus cou- 
leur locale comme yd'? Meme ' 
Et pis en lout vouer que c est 
plus un documemaire un peu 
lOue par les gens c est pas 
viaimem un film 

• Et kessk on y vouet dans ton 
mactim ? 

- On nous vouet alter au Credit 
Agricole pour avouer le credit 
pour acneter le nouveau trac- 
leur on vouet Micfou Marcusse 
qui va a ses reunions synd'caies 
a Pans „eannqt Marcusse qui 
ecnl son journal comme tous 
les souers On vouet aussi la ca 




photo Pierre COLLOMBERT 

oeite qu ecoute *ie lac des 
cygnes" par Madness, et qui en 
que c'esl Tchaikovsky qua 
cop e sur eux ' 

- C est tout ' 

■ Oh ben non ' On vouet aussi 
la discussion qu on a eu a 
propos de I'hentage. que c est 
quand meme important dans la 
vie d une lamille qj a d a re're 
et des betes hem Meme ? 

- Mais dis moue mon gars. 
c est pas un peu ennuyeux a la 
longue de vouer des gens vivre 
comme ga leur vie de tous les 
(Ours sans meurire. sans nen 
qu on vouet d habitude dans ies 
hlms ? 

■ Si mais au mquens ca prouve 
que ies paysans Irancais ca n a 
nen d exotik comme y croueent 



auiourd'hui Si Roland Jolte a 
refuse de tomber dans le piege 
du cinema d'horreur realiste 
(beaucoup des exactions des 
Khmers rouges ne sont pas evo- 
quees), on ne peut que Ten leli- 
citer Mais d avoir voulu privile- 
gier I aspect plastique a tout 
prix conduit inevitablement a un 
traitement de ces evenements 
plus romance qu'il nest souhai- 
tabie En eftet une fois sorti du 
film, on se rend compte que 
l'histoire decnte si magistraic- 
ment (photo exceptionnelle, ser- 
vie par une musique superbe) 
ressembie plus a un album de 
Tintin qua un reportage sur la 
realite de la vie de Schanberg et 
de son interprete A aucun mo- 
ment Jotfe ne reussit a rendre 
vraiment credible la vie de Ditb 
Pran dans le camp de travail ou 
il est interne apres la luite de 
son collegue americam meme 
s'll porte des marques des mau- 
vais traitements qu il subit ses 
crieveux trop bien peignes et ses 
vetements trop propres font 
sourne Pire est levasion ou la 



bonne etoile de Pran travaille en 
heures supplementaires pour lui 
permettre de survivre (trop de 
rencontres improbables se suc- 
cedent au cours de celle-ci) 
Malgre tous ces aspects nega- 
tifs, le film devoile beaucoup 
delements positits pour celui 
qui saura analyser les plans et 
voir entre les images: le reporter 
nbesite pas un instant a mettre 
en jeu la vie de son interprete. 
sachanl pertinemment que la 
sienne ne sera jamais reellement 
mise en danger ll pourra tou- 
jours ecrire a tous les orgams- 
mes humanitaires a la recherche 
de Pran. une fois bien a labn 
dans son appartement new-yor- 
kais Toute la philosophic du 
tilm est resumee dans le dernier 
plan, lors des retrouvailles 
Schanberg reste a cote de sa 
voiture et encore une fois c est 
Pran qui parcourt le cbemm les 
separam 

Allez le voir vous ne vous en- 
nuierez pas mais ne vous hez 
pas a I emballage il est trom- 
peur 




1 BRAZIL 


20 20 


2 LES FAVORIS DE LUNE 


17 20 


3 PERIL EN LA DEMEURE 


17 20 . 


4 LA VIE DE FAMILLE 


16 20 / 


5 LES SAINTS INNOCENTS 


16 20 A 


6 A LA RECHERCHE DE GARBO 


16 20 rlj*' 


7 ANOTHER COUNTRY 


15 20 IV 


8 LES SAISONS- DU COEUR 


15 20 K«| 


S ROUGE GORGE 


14 20 >m 


10 LADECHIRURE *. «^ ^ 

11 TRAIN D'ENFER ■'■ **Jh*A\ 


14/20 -i^ 


14 20 fV 


i2 gwen A^-v'-a 


14 20 rtsj 


13 BODY DOUBLE ^W' -^jjp 


13 20 ~r« 


14 URGENCE C^^W 

15 DUNE IT jXJS 


13 20 \y 


12.20 // 


16 PHILADELPHIA \ XP^ 


1220 # 


17 EL NORTE V^ 


12 20 1 



de Brian de PALMA 

Avec Graig WASSON. Mela- 1 ' /■ 

GRIFFITH et Greg P^L U^M 
HENRY; 1h54. ~ ^^^M 


PALMA v •*£>■ >t\ 
qua copier Uiimdrillw^ l^^H 
Dans ma campagne on voyait g 
pas grand chose, mais quand m 

meme, je r'connais du Hitch- ^^^^f^^^^^^^^^^^ 
cock, laut pas m'prendre pour (j'vais pas non plus vous dire 
plus debile que chuis (chuis ks'est tout bien), c'est qu'y va 
de/a assez atteint comme ca). pas assez loin, c'est une his- 
Les references a P&pe' sont loire de voyeur qui se fait 
grosses comme un HLM des completement arnaquer (j'vous 
Minguettes. Si le vieux avait raconte pas) et question spyk. 
pas lait VERTIGO ou FENE- ysplo. psyloko. enfin bon. un 
THE SUR COUR. le p'tit DE mot en "ique". quoi. c'est un 
PALMA serait balayeur a HoT peu leger. J'dis ca passke 
lywood, et pas r&alisateur. zarma ca fait intello. 
Ftmarquez. pour c'film. j'me D'toute maniere cest pas skon 
r'trouve dans la situation du lui d'mande. hein, skon veut 
prof qui corrige les copies et c'est de faction (y'en a), de la 
qui s'dit: "Cui-la y s'fout de violence (la aussi y a la dose) 
moi, y m'prend pour une bille. et du cut (ca en manque un 
mais son true est tenement peu. mais cest pas sa faute, il 
bien fait que j'lui fous quand a eu peur que la censure tes 
meme une bonne note 1" lui coupe -les sc&nes de cul- 
Passk'il est bien son film, y a comme qui zavaient fait pour 
des mecs qui copient Hitch et SCARFACE). 
qui font des supers navets. lui Voila... Euhhh... c'est tout... 
non. Le r'proche que j'lui feral tirez-vous. y a plus rien a voir. 



A LA RECHERCHE 
DE GARBO 



,<Y StDSIlY K. I.VMF.T 




Carrie FISHER et 



■n 



Le debut du film est plutot 
surprenant, on voit Anne 
BANCROFT encerclee par 
une armee de Kleenex 
usages et on s'demande si 
c'est passk'elle pleure ou 
bien passk'elle enrhumee. En 
fait elle pleure. Et pourquoi 
done ? Eh ben c'est tres sim- 
ple. M'sieurs. Dames, c'est 
passk'elle voit GARBO a la 
tele. 

GARBO. cest sa 2eme rai- 
son de vivre (elle en a 31 
Elle a une collection dement e 
de doc' sur son idole. des 
quelle voit kek chose qua 
rapport avec la GARBO. eite 
lachete, meme si elle se tail 
arnaquer I 

Sa premiere raison de vivre 
cest son Ills (sa merveilte 
son soleil. etc..) quest un 
comptable mmabie (ca vous 
change pas de BRAZIL) mais 
pas con. Disons qu y s'laisse 
porter par sa femme I'a Prm- 
cesse LEIA en Temenne 
BCBG) 

La troisieme cest le mihlan- 
tisme. quel que soil le suiet 
Vous la branchez sur nim- 
porte quoi el elle demarre au 
quart de lour les conditions 
de travail des mfirmiers. les 
droits de la femme. ies droits 
de Thomme. les prix. la cou- 



leur des unilormes des flics, 
la pluie les jours dele, la 
taille des Fingers, n'importe 
quoi '. 

Et un jour, damned ! elle ap- 
prend quelle est atteinte 
d un cancer, ski Tetonne 

passk'elle est sagittaire. 
alors elle en cherche 'ascen- 
dant et decouvre entre le so- 
leil el Venus une tumeur au 
i Dur i 



3*V** 



Branie bas de combat ' 
Alerte generate I Tous 
imonde sur le pont ' Elle de- 
mande a son Ills de lui laire 
rencontrer la GARBO Et 
pendant 3 mois il va la tra- 
quer dans New-York, it lui ar- 
rive des tas daventures ur- 
bames et tout et cest super t 
La trouvera-t-il a temps ? La 
suite au prochain numero ' 



VARIETY 

it BETTE GORDON 









qu i 



est pas bon I L'histoire d'ui 
fille qui trouve un boulot comme 
caissiere d un cine porno et qui 
s'emmele les pinceaux dans sa 
tete Si vous comprenez pas, 
vous mquietez pas c'est fait 
expres Je m demande encore 
comment j'ai pu voir ce film jus- 
gu au bout tenement e'etait pas 
bien Chais pas comment elle y 
arrive, mais cette brave Bette 
GORDON n a meme pas reussi 
une seule scene de son film, 
rien aucune Cest toujours 
chiant \ 

Et pourtant y'avait de quoi faire: 
ya des scenes ou la nana debite 
d'une voix genre Darth Vader 
des obscenites qui frail bander 
un paraplegigue. et on accroche 
pas. Ya presque la meme scene 
dans PERIL EN LA DEMEURE 
avec ANEMONE, et la au moins 
ga remue Mais elle ! Rien ! 
Jamais on ne souril, pas une 
seule malheureuse fois rien que 
pour me laire plaisir. a moi 
Quand meme, c'est baleze ! 
Et puis d'abord, moi la gon- 
zesse. j'la trouve meme pas 
belle I 

Y'a juste un true a dire a propos 
de ce film, c'est Que !e script a 
ete ecrit par Kathy ACKER, qui a 
ecrit les bouquins les plus durs 
que je connaisse. et c'est pas 
peu dire Alors seul true a rete- 
nir: cherchez ou commandez 

cue? voire liDraire In plus prsefii 

un de ses bouquins. n'importe 
lequel. ga au moins ga vaut son 
pesant de KKwett, mais le film, 
lui ne vaut pas un pet de lapin. 



ALPHABET CITY 

d'ATMQS P(F, 

Avec Vincent SPANO, Kale 
VERNON et Michael WINS 
LOW; fh30. 



Alors c'est parce que zarma y 
fait partie de la nouvelle vague 
new-yorkaise qu'il se permet de 
(aire un film creux ? Eh ben 
non ! Chuis pas d'accord, nou- 
velle vague ou pas nouvelle 
vague, ya pas de raison de faire 
de la soupe 

Yen a qui disent que SPANO 
c'est le nouvel Al PACINO, eh 
ben la non plus chuis pas d'ac- 
cord. c'est pas passke son nom 
finit aussi par "NO" que c'est 
son remplacant. 

Et pis moi jtrouve ga un peu 
malsain ce genre de lilm qui 
parle de dope tout I temps 
Passk'en fait c'est l'histoire 
dun ieune mec qu'est I'roi de la 
rue. qui controle des boites de 
nuil (gue sa maman lui a often 
pour Noel), des dealers, des 
pules, des baiais-brosses. des 
champs de betteraves et de 
pavots. etc Et alors, comme il 
en a ras I'cui de loute cette vie 
de con. y veut s'barrer avec sa 
femme el son gosse Comme 
vous le voyez au fond c est un 
bon gars qui veut d mal a per- 
sonne. sauf qu y vend d la dope 
a des gosses cu: vo r : en crever. 
mais ga c'est pou' gagner de 
I argent R marque; il aime 
beaucoup sa maman, il est 
Rilal. alors meme s'il I aimait 
pas il laimera ; uca-d meme ! Et 
puis ya aussi sa soeur qu est 
pute pardon caii-gi'l. et s'il lui 
die des baffes c est seulement 
pour son bien Et lout ga sur 
I meme ion touiours il arrive a 
jusiitier ses saiopenes. et ben 
mpi cnuis pas d accord 
C est un turn qu il est cense 
avoir lout piem d action, et tout, 
mais c est tenement repetitif 
qu on s en lasse alors vrai- 
ment non vous pouvez ne pas 
y aiier ie vous absous 



tilOCke mmmmmmu 

CIELMONMARI J^J.% 
Lejeune marie — T/*7/ 



de Bernard Stora (1983) 
Billy (Richard Berry), iravaille 
sur des chancers Jusque la 
rien d' extraordinaire. Mais un 
jour, Billy decide de se ma- 
rie r. Ca va to o; ours Mais 
voila t'y pas qu un autre /our. 
se trompant detage dans un 
ascenseur. billy rencontre Vi- 
viane. OUAOUHHH. attention 
ca va se corser. A partir de 
ce moment la. c'est la tem- 
pete, que dis-je la tempete, 
le deluge, dans le coeur de 
billy. Plus question de ma- 
nage ou de chantiers. II aime 
Viviane. un point c est tout. 
Au debut. Viviane n aime pas 
Billy Puis Viviane va aimer 
Billy, mats plus tard. Viviane 
naimera plus Billy AHLALA 
ca se gate. Mais Billy, lui il 
aime tou/ours Viviane. 
Je vois a voire bouche hu- 



mide et a voire oeil luisant. et 
connaisant voire perspica- 
cite, quune question essen- 
tielle vous brute les levres: 
C'EST TOUT ? Comme te ne 
suis pas plus idiot quun 
autre. ie me suis egalement 
pose la question. Savez vous 
ce que ie me suis repondu ? 
Non ce nest pas tout' Parce 
que derriere cette histoire 
amoureuse dune navrante 
banalite. il y a une pemlure 
interessante du milieu ouvrier 
et du monde du travail (pre- 
nez en de la graine). Cette 
pemture. est ... comment 
dirais-je... Euh... Dun rea- 
lisme... Euh... Tres reel quoi. 
Bret si vous n'avez rien de 
mieux a laire que de regarder 
ce film, laissez vous tenter. 
Diffusion le 7 sur C + a 
20H35. 



CASANOVA CHOPS LES BOULES 
W* Torn m 



Film de J. Renoir (1934) 
avec Charles Blavetle. An- 
drex et Max Dalband. 
Bon. alors si ;e vous dis les 
oliviers. le Ihym. le soleil. la ' 
petanque vous repondez la 
Provence. Gagne. on conti- 



nue. Un 



une 



ferme dans les collines. vous 
dites Pagnol. Perdu, eh cong, 
ceci nest pas une comedie 
croquipagnolesque mais un 
drame social neo-r6aliste 
Le denomme Antonio Ca- 
nova, dit TON!, est un ouvrier 
carrier, emigre de surer oit. 
Non content de voter le pain 
des Irancais, il marie la 
MARIE, une honnete lille de 
chez nous qui ne meritait pas 
cela. Non content de cela il 
tourne autour de JOSEPHA. 
JOSEPHA c'est la iemme 
o "ALBERT, le brave contre- 
mailre de la carriere. un gars 
plein de tact et de scrupules. 
it a epouse la JOSEPHA mal- 
gre qu'il I'eut violee aupara- 
vant. c'est vous dire. 
Cet etranger semant la ziza- 
nie dans ce menage ideal, le 



m 

pauvre ALBERT est lache- 
ment escagasse par sa 
femme. N'ecoutant que son 
courage, ce salaud d'immigre 
s'enluit a travers la monta- 
gne plutot que de faire lace a 
la justice. Ce gibier de po- 
tence sera abattu comme un 
chien par des vrais francais. 
Na. 

Vu le climat politique de 
I'epoque (xenophobie et ra- 
cisme galopant) ce film, un 
dh<5f-doeuvre, est dune ac- 
tual* te brulante. 50 ans 
apres. la connnerie reste vi- 
vace, surtout dans cette belle 



Jflf NOIR, C'EST NOIR 

J3> Le manage de Maria Braun 



Film (1978) de R.W. Fass- 
binder avec hanna Shv- 
gutla. 

Allemaqne 1945. Zone d occu- 
pation amencaine ? Dans le 
toutoir dun pays en ruines 
MARIA traque la calone quo- 
tidienne (chaleur. nournture) 
pour toute sa familtle. Dans 
un cabaret improvise elle 
rencontre Thomme de sa 
(surlvie. lis prennent langues 
(Toi TARZAN, Moi JANE). II 
est gros. laid et noir (elle est 
aryenne. teune et belle I ma is 



& 



et i 



s-ofii- 



cier. done riche. La familie 
prolite naturellement de la si- 
tuation et be nit la collabora- 
tion germano-americaine. 
Las. Herrmann, le marl de 
MARIA Unit par revenir de 
son camp de prisonnier et 
surprend sa femme dans une 
situation compromettante Si- 
tuation contuse oil I'ameri- 
cain est tue. Herrmann Braun 
s'accuse else sacrilie. Dore- 
navant MARIA travaitlera 2 
lois plus, par amour et par 
necessite ATTENTION, a la 




n existe qu une seule 
explication logique. 
La peinture de lapres-guerre 
altemande est dune noirceur 
extreme. Veritable precis de 
decomposition dun peuple. 
toutes les valours morales, 
toutes les institutions son! 
tiees. seuls demeurent dans 
cette jungle les besoms pri- 
maires: nourriture. sexe (Mot 
JANE, si toi donner banane) 
Diffusion le 8 a Oh25 sur 
Canal - 




Lundi 4 Mars 



20h30 C - 



LE TROMPETTE (1982). film taventures 

historiques) hongrois 

GOUPI Ivoir article! • 
20h35 FR 3 ; LAISSE-MOI REVER (1978) de R. Me- 

negoz avec M. Galabru 
20h35 A2 : MACBETH (opera) de Verdi 
22h20 TF 1 ; ETOILES ET TOILES imagazme du cine 

branche) 
23h05 FR 3 ; THALASSA (magazine qui a le vent en 

poupe) 



20h35 TF 1 ■ 



Mardi 5 Mars 



20h30 C+ ■' COURAGE FUYONS (voir article) # 
20h35 TF 1 : ENtGMES DU BOUT DU MONDE 
20h35 FR 3 ; LA DERNIERE SEANCE (voir CURIOSI- 

TES) 
20h40 A2 : LE DERNIER APPEL AU SECOURS 

(n'y repondez pas) 
21h35 TF1 : LA PASSION DE LA VIE (documen- 

taire) if 1: La passion prisonniere 
22h10 C * : LE CERCLE DES PASSIONS (voir arti- 
cle 71) 



Mercredi 6 Mars 



20h35 TF 1 ; DALLAS 

20h35 A2 ; LA FEMME DU KENTUCKY (telefilm mi- 

neur) 
20H35 FR 3 : CADENCE 3 (vanetes avariees) 
21h30 TF 1 ; CHAMPIONNAT DU MONDE DE PATI- 

NAGE (Tokyo): Litres couples 
22h10 A2 : CINEMA. CINEMAS (LE magazine) 
22h25 FR 3 ; LE MARIONNETTISTE (dramatique 

bons sentiments) 
23h05 C - : ANDROIDE (film synthetique) 



Jeudi 7 Mars 



71) 

20h35 FR 3 : UN AVENTURIER NOMME GODIN (dra- 
matique pedago-godiche) 
20h35 TF 1 : AU NOM DE TOUS LES MIENS rf 5 
2lh35 A2 ; RESISTANCES (magazine des droits de 

Thomme) 
21h35 TF 1 ; INFOVISION (magazine dactualites) 
22h05 C - : LE MARIAGE DE MARIA BRAUN (voir 
article) A 



Vendredi 8 Mars 



20h35 A2 

20h35 FR 3 

20h35 TF 1 

21h35 A2 

21h45 C * 

21h50 FR3 

21h50 TF 1 

23hC0 A2 

23h18 C +■ 

00h25 C t 



CHATEAUVALLON 

FACE A LA TROIS avec Jean Bernard 

HOTEL 30 ETOILES (varietes genre au- 

berge espagnole) 

APOSTROPHES (Histoires d'exiies). 

ERASERHEAD (Voir CURIOSITES) 

DECIBELS DE NU1T (vanetes rock) 

PATINAGE a Tokyo: Danse 

TONI (voir adicle) ■ 

ANDROIDE 

LE MARIAGE DE MARIA BRAUN (voir 

adicle) 



Samedi 9 Mars 



20h35 A2 .- CHAMPS-ELYSEES 

20fi35 TF 1 : UN HOMME COMBLE (dramatique 
sympa) 

20b35 FR 3: DISNEY CHANNEL 

22h05 A2 ; LES ENFANTS DU ROCK (U2 Live) 

22h20 FR 3; DYNASTIE 

22h30 TF 1 ; DROIT DE REPONSE 

23HO0 C + ; LALCHIMISTE (1983) (potion purga- 
tive) 

23h45 FR 3; LA NUIT DU ROCK MEDITERRANEEN 

00h20 C - : UN AMOUR DE SWANN (voir CURIOSI- 
TES 71) 



Dimanche 10 Mars 



19h00 
20h30 
20h35 



21h35 
22M0 

23h.J5 



A2 -■ HOTEL DE POLICE 

C + : LINDISCRETION 

TF1 ; LAILE OU LA CUISSE (1978) de C. 

Zidi avec Coluche el L. de Funes (nre 

gras) 
A2 ; LE GRAND RAID (jeu hard) 
FR 3 * ARCHITECTURE ET GEOGRAPHIE 

SACREE 
A2 : SPECIALES ELECTIONS CANTONA- 

LES 
C + : LES GUERRIERS DE L APOCALYPSE 

(japoniaiserie) 
FR 3 ; JE SUIS UN EVADE (voir article) Q 



telocfte 

SUIVEZ LE CONSEH, 
Courage fuyons ■& 



luir. De toutes talons, ce film 
etant programme sur la 
chaine a peage. vous naurez 
pas de mal a Teviter Est il 
encore possible de nos jours 
de taire des films aussi nul ? 
Je pensais naivement que 
non. (Oplimiste hem ?) eh 
bien si. El meme pire que 
lout ce que vous pouvez ima- 
giner. Non Iranchement cest 
vrai quoi. pour qui. ou quoi 
nous prend-on. C'est tene- 
ment nut mais nuuuul (cen 
est a pleurer) que /e ne vous 
ferai meme pas latfront de 
vous raconter Thistoire (si 
histoire il y a). En gros. et en 
mince aussi. c'est Thistoire 
dun homme... Qu esl ce que 
c'est nul, mais cest pas vrai 
un film pareil. c'est pas un 
vrai film, y nous font croire 
que c'est une comedie, mais 
c'est tragique de voir des 




conneries pareilles. Voila ca 
y est y m'ont mis hors de moi 
je peux plus rien dire. Vrai- 
ment hein, cest pas croya- 
ble. Enlin, vaut mieux voir ca 
que d'etre aveugle. 

Diffusion Ij 5 a 20h30 su 



ATTRAPEZLE! 
( Je suis un evade Q 



Film de Mervyn Leroy 
(1932) avec Paul Muni. 
Ce soir. sous vos yeux, va se 
jouer un drame. si si. Film 
tres tres noir s'it en est. ce 
dernier est egalement une 
table sociale pas Iranche- 
ment optimiste (attention 
coeur s sensibles). Ca 
commence par /'evasion du 
bagne d'un homme (James 
Allen), qui a toujours clame 
son innocence. Alors. le voila 
qui va tenter de rentrer dans 
le rang et de reussir sa "rein- 
sertion sociale". Le pauvre, 
tui qui croyait que tout ie 
monde it etait beau, tout le 
monde it etait gentil. eh ben 
c'est la surprise de sa vie. II 
est jete de partout comme un 
malpropre. Pourtant, lui. il 
veut du mal a personne. Au 
contraire it veut avant tout 
vivre tranquilte. cool. Maris, 
range, it est denonce par son 
epouse (je vous salue Marie, 
pteine de graisse). Et les ga- 
teres recommencent. 
A sa sortie, ce film a eu quel- 




tphoto FR 3) 



ques problemes, parce que 
les pratiques poiicieres ne 
sont pas montrees sous leur 
meilleur jour. Franchement je 
vois pas... Tire d'un 
divers authentique, le succes 
du film obtigea 'administra- 
tion a reviser son proces et 
les conditions de vie des ba- 

Snards. 
e film pas gai, gai. (pas 
gay. ni pagaie) vous met 
peu le moral a zero, mais 
quand meme, quel pied dans 
ces cas-la de se payer une 
bonne de prime. 
Diffusion le 10 Mars a 
23h45 sur FR3. 



FANTASIA CHEZ LES SCHTROUMPFS , 
) Goupi mains-rouges • i 



Film de Jacques Becker 
(1942) . 

Vous connaissez la tamiile 
des Goupis ? Non. pas GOU- 
PIL ce chef-d'oeuvre de la 
technologie ratee, Goupi. 
comme ca s'ecrit (avec un 
stylo). 

Ces goupis la. sentent bon le 
terroir francais, et plus preci- 
sement du sud ouest. vers 
les Charentes (la ouia du bon 
beurre). lis sortent lout droit 
d'un /eu des sept families, il 
y a GOUPi-EMPEREUR, 
GOUPI-MUGUET, d'aulres 
encore, et surtoul GOUPI- 
MAINS-ROUGES (qui est 
amoureux de la GOUPI DU 
PIANISTE) le heros. Et 
comme lis vivent entre eux. 
Us reglent leurs comptes 
entre goupis. 

Qu'est-ce qui interesse done 
ie goupi moyen ? C'est les 
gros sous, comme tout le 
monde. Et bien evidemment, 
il y a un tresor des goupis. 
tresorqui suscite la convoitise 
de tous les goupis. Heureu 



sement il n'y a que Goupi- 
lempereur (lancetre) qui sail 
ou se trouve ce tresor. 
Mais un beau jour, il y a mod 
de goupi. Alors le beau, 
grand, tort, et ruse Goupi- 
mains-rouges, il chausse ses 
charentaises et part a la r 
cherche de /'assassin. Et il 
decouvre (/assassin), done 
tous les goupis sont 
contents, I'honneur est sauf. 
Un beau jour (moins beau 
quand meme que le prece- 
dent) le vieux goupi qui 



te i 



• du i 



sent sa tin proche. II appelle 
done a son chevet te seul 
goupi capable de garder le 
secret des goupis. mais oui 
vous iavez devine, c'est le 
grand et ma in tenant celeb re 
Goupi-mains-rouges. Tout 
est bien qui finit bien. 
En fait, ce film cest un peu 
comme les Schtroumpfs. sauf 
qu eux. its ne disent pas 
GOUPI tout le temps. 
Diffusion le 4 Mars a 20h30 



curiosites : 



'LA DERNIERE SEANCE le 5 a 20h35 sur FR3 ' 



mzr 



l ERASERHEAD (LABY- monde de tantasmes. La 

§RINTH MAN), film (fantasti- dame dans le radiateur" lui 

mque) de David Lynch. Prix apparait. Sa belle voisine le 

J special du jury au festival seduit puis le repousse. Son 

td'Avoriaz (1978). bebe lui fait perdre la tele... 
qui route dans le caniveau. 

■ Un homme qui supporte mal Son cerveau servira a fabri- 
5 la mediocrite de son quoti- quer des gommes. Pour les 

■ dien se refugie dans un amateurs un MUST. 



LA FUREUR DES HOMMES 
(1957). western de H. Hatha- 
way. 

Accuse injustement du meur- 
tre de Charlie. TOD fuit la 
vengeance de Bradley, le 
pere du defunt. Desert, pour- 
suites, coups de feu. chevau- 
chees sont au programmme. 
Sans plus. 




LE CAUCHEMAR DE DRA- 
CULA (1958). tilm de T. Fis- 
cher avec Christopher Lee 
Entin un film d'horreur a la 
tele, et en V.O. en plus 
imerci Michou). 
Mais dis, pourquoi ten a pas 



# 






PUBLICITE 





H6 oui, de la publicity dans Hebdogiciel, nous rentrons dans le rang? Vous rigolez ou 
quoi? Les annonceurs que vous voyez la, lei, dessous se sont engage's a falre 5 % de 
remise aux abonnes de I'hebdo sur TOUT le magasln, y comprls sur les ordlnateurs, les 
fournltures et les peripheriques. C'est pas de la bonne publicity, ga, Madame? 



S.A. LHOMME 

NOMBREUSES MARQUES DISPONIBLES 
LOGICIELS, UVRES 

CONSEILS EN INFORMATIQUE 

INITIATION A L'INFORMATIQUE POUR LES 

ADHERENTS DE LA CASE MICROCLUB 



TOUTE LA MICRO CHEZ 
S.A. LHOMME 

5, rue Fanfrelin 16000 Angouleme 
(45) 95.27.37. 




. THOMSON-M05-T07.70 

. POINT CONSUL TIFY 

. MSX . YAMAHA. SANYO . AMSTRAD 

. LIBRAIRIE 

Sinclair - 



{_Z commodore 

C0LEC0VI5I0N'- 



CBS 



1 i /exposition Infor- 
matlque SIUABE (bid da Bat- 



VIDEO 107 INFORMATIQUE 

♦ ♦ ♦ ♦ ♦ 

PLACE DES FETES 
75019 PARIS 

QL SINCLAIR DISPONIBLE 

COMMODORE, ORIC, AMSTRAD 

EXELVISION 

Tel : 20146.09 



B=i.tn.i.R 

Automatismes - Micro- Informatlque Rouennaise 

• L'INFORMATIQUE A TOUS LES NIVEAUX 

- AMSTRAD - MSX 

- COMMODORE 64 - SPECTRUM 
-ELECTRON - ZX81 

- EXELVISION - SANYO 550 ct 555 
-M05 -ORIC/ATMOS 

- T07. 70 

. PLUS DE 600 LOGICIELS POUR LES MICROS 

• Creation de togiciels personnalts4s pour PME/PMI 
■ Formation, mise en oeuure, service apr&s-vente 

AMIR c'est aussi les togiciels utititaires et les 
jewc pour ATMOS : EDITEXT, AMIFtCHE, KIT 
FUNCTION, et bientot APIS, STAREX, LE 
PRINCE KHARNA. 
SO, rue de Fontenelle 76000 ROUEN 
Tel: (35) SB- 56-94 



VIDEOTROC 

VENTE - ECHANGE - DEPOT DE 

TOUT MATERIEL VIDEO ET MICRO- 

INFORMATIQUE - LOCATION DE JEUX 

NOS PRIX NEUFS ! 



HOMTEUR COULEUR : 2490 F 
ATARI mi XL SEC AM :l'00F 
DISQVETTE SASHUA (XIOI : 149 1 
AMSTRAD 

* momlrur couleur : 4 490 f 
+ monittur monochrome : 2 990 

Jnyu.ck QUICK SHOT II : 120 F 

SPECTRL 1/ + . ISSOF 



LECTEVR DISQVETTE * Ijtu 
Momiem Firan Ambit : 9$0 f 
MSXCASOSV20 29911 1 
Imprimame BROTHER 

svtc cordon: 2 79QF 
SPECTRUM + .- 1730 F 
CBM 64 PAL * Ijeu = 24W F 
CBM iM Perilel + I ,ru = 2890 F 

OUVERT DU MARDI AU SAMEDl DE 10 H A 19 H 

89 bis, rve de Charemon 75012 PARIS 

til. : 342.18.54 

melro : gate de Lyon, Ledrv Rollin 



H9H, 



BMP 



LA MICRO 1NFORMATIOUE A LYON 



20, me SERVIAHT 69003 Lyon 
UL:(7) 860.04.27 



LE SPECIALISTE DES LOGICIELS 
APPLE ET THOMSON M05 & TOT 



L'EXPERIENCE MICROPUS 

La Maison de I'lnformatique 
• MICRO-ORDINATEURS PERSONNELS : 



-ORIC 


- ALICE 


- SINCLAIR 


- ELECTRON 


- THOMSON 


-MSX 


- COMMODORE 


- AMSTRAD 


-LAZER 


- EXEL 100 


- CANON 


-DRAGON 



A'uh.s ttUMMHI de (j qu.isi touiite des jccessoires 
el peripheriques associes a not marques el ceei 
/in... in /pure I'annee. 

, COURS DE FORMATION 

15 cours GAMBETTA 

34000 MONTPELLIER 

(67) 92.58.83 



VISMO 



Vente informatique service micro ordinateurs 

ORIC, SINCLAIR, AMSTRAD 

Moniteurs couleur et N/B. 

Tous peripheriques 

ASSEMBLEUR MONAMS 
Recommande par Hebdogiciel 

84. bd Beaumarchais 75011 PARIS 

12, bd de Reuilly 75012 PARIS 

338.60.00 



ABONNES, 

si vous avez un probleme avec une de 

ces boutiques, vous savez a qui vous 

adresser? Je ne vous fais pas de des- 

sin? 



ANNONCEURS, 

vous avez en vie de vous lancer dans 
I'aventure? Vous etes prets a consentir 
5 % de remise sur toute votre boutique 
pour la voir envahie de programmeurs 
tous? Ecrlvez-nous, nous vous ferons 
payer tres cher le centimetre carte de 
publicity 



un SPECIALISTE, c'est PLUS SUR et.. 
... c'est toujours MOINS CHER ! 

micrOmetz 

r- I 

micro-informatique pour tous 



ordinateurs personnels & professionnels 



compatibles : Zenith - Toshiba <jf& 

1 9, r.de la Fontaine |S1 Place de la -i1^ 
57000 METZ !■ Republique $v 




grand choix de logiciels 

iibratne specialisee 

nos PRIX .-SERVICE COMPRIS 






LES BOUTIQUES DES 
BRANCHES CABLES 



TOUS LES LOGICIELS FROM USA 
pour ATARI, CMB 64, APPLE, 
COLECO. 

H7 avenue de Villiers 75017 PARIS 

766.U.77 
163 avenue du Maine 75014 PARIS 

54l.4l.63 



la page pedagogique, 



la page pedago 



Rosa, Rosa, Rosae, I'Exelvision de Jean Claude MANGIN reconcilie les langues mortes et les memoires vives ! 



TABLEAU D ADAPTATION 

Locate (X,Y): Place le curseur en X.Y 

CLS: Efface lecran. 

Cell color: Fixe la couleut de 1 encre. du fond e! du to 

CLS ("XWY"): Efface lecran el fixe la couleur X de 

Wdu fond et Y du lour. 


'encre. 



SUITE DU N 71 




VOCABULAIRE LATIN sur EXL 100 . 




. REM XXtXXXXtXXXtXXXXXXXXXXXXXXXXXXX 

! REM HP0SITIOHHEHENT DRNS LES DHTRS* 
I REM tXXXXXXXXXXXXXXXXXXXXXXXXXXXXXt 

1 ON CHOIX GOTO 167,166.168,163 
) RESTORE 171 GOTO 16? 

> RESTORE 212>G0T0 169 
' RESTORE 233'GOTO 169 
) RESTORE 233 
) RETURN 
J GOTO 170 

1 REM XXXtXXXXXXXXXtXtXXXXXXtXtXXXXXX 
I REM * DBTB MOMS * 

3 REM XXtXXtXXXXXXXXXXXXXXtXXXXXXXtXt 
\ DATA RNCILLR. RE. F, SERVANTS, DOM I NH, RE, F,MRITRE3SE,DER.fiE.F.PEESSE 

S DRTR SICILIH. B£,F,SICILE, INSULA, AE.F.ILE. TERRA. RE. F , TERRE ■ VITA. AE.F. VIE 

> DATA VILLA. RE. F .FERME. DILIGENTIH, RE. F. EMPRESS EME NT . ROSA. AE. F.ROSE 
' DATR PIJELLAHE.F. JEUNE FILLE.CURA .RE , F, SOIN. PATRIfl, RE. F, PflTRIE 

3 DRTR PUGNA.AE.F,BRTRILLE.PECUNIfi.AE,F,ARGENT,COPIA,AE,F,ABONDPiHCE 
J DATA FAnA,AE,F,RENOMMEE,SILVfl, RE. F,FORET,FERR, AE.F, BETE SAUVRGE 
3 DRTR SACITTA,A£,F,FLECHE, SAPIENT IR,AEF.SRGES5E, IRA,RE,F , COLERE 
I PATH RPR. AE.F.AUTEL. CORONA. RE. F . CCURONNE, GRRECIA, AE, F.GRECE 

> DATR ITRLIA.AE.F, ITALIE ■ STATUR, RE, F.STRTUE, VIA. AE.F, ROUTE 

3 DATA MEDICUS.I.M,MEDECIN,FILIUS,I.M,FILS.CAMPUS,I,M.PLAINE.0CULUS.I.M.OEIL 

» DATR SERVOS, I , M, ESCLRVE.EOUUS, I , M, CHEVRL . LUPUS, I. M, LOUP 

5 DATA AGNUS, I .M, RGNEAU.RI WS. I , M,RUISSEHU. RQUB.BE, F, ERU, OPERA. BE.F.RIDE 

5 DATR SflEvmR,R£,F.CRUAUTE.P0PULUS,I.M,PEiJPLE,R0MRNl,0PUM,M.PL,R0MRINS 

7 DRTR GRRTIR, flE.F, RECONNAISSANCE. LHETITIR, RE. F. JOIE, MORBUS, I .M-MALAPIE 

3 DATA AESCULAPIUS. I .M . ESCULAPE , ANNUS . I , M .RNNEE -PUER, I , M, ENFANT. LUPUS I .M. JEU 

J DRTR SCHOLR.RE.F.ECOLE.MAGISTERTPI.M.INSTITUTEUR ■ PISCIPULUS. I . M .ELEVE 

3 DRTR LIBER, BRIM.LIVRE,PIGPITIA,AE.F.PARESSE.RIPfl, flE.F, RIVE 

1 PRTR P! VI TIRE. ARUM. F. PL, RI CHESSES ■ HORTUS ■ I .M, JAPPIN . MCPft. AE ■ F . PETARP 

? PRTR CUPR.AE.F.SOUCI.FRBULA.RE.F.LEGENDE.BELLUM. I . N, GUEPRE • PONUM , I .N-CRPEfiU 

3 DRTR FRUMENTUM.I.N.BLE.PERICULUM - I . N, PERIL.OPPIPUM. I , N, PLACE FORTE 

* PRTR PRRESI D I UM . I . N . GRPNI SON . APMA . ARUM . N . APMES . PRREM I U(1 . I . N , RECOMPENSE 

5 DATA inPEPIUM. I . N . EMPIRE . TEMPLUM I . N . TEMPLE .RUXI LI UM, I.N.SECOURS 

5 DRTA OTIUM. I, N.LOISIR.AGRICULTURR. AE.F. AGRICULTURE- AURUM, I, N, OP 

7 DATA MONUMENTUtL I .H MONUMENT. SEPULCPUM . I , N, TCMPEfiU ■ INGENIUM, I. N . TALENT 

3 DRTR TESTIMONIUM. I, N, PREUVE • OPACULUM . I -N . ORACLE . NEGOT I MM, II N. AFFAIRE 

? DATA ','EPBUM ■ 1 ■ N . PAROLE. LIBEPI • ORUM- M.PL, LES ENFRNT? . AUTUMNUS I • M.RUTCMNE 

3 DRTA AEOLUS, I ■ M, EOLE . VBHTUS , I , M, VENT . ANTRUM, I , N . CfiVEPNE .CAELUM, I . N XIEL 

1 DATA FOLIUM. II, N.FEUILLE.SCPIBA.AE.M. SCPIAE.AGPirriL.fi. AE,M,PPYSAN 

2 PRTR NAUTfl. RE. M. MARIN- fiTHLETfl.fiE.M.RTHLETE.POETR, RE. M.POETE, HUMUS -I .F.SOL 

3 PRTR COLLEGR.flEM.COLLEGUE.FICUS. I -F . FIGUIEF -UMBRA ■ AE . F. OMBRE 

A PRTR REGYPTUS - 1 . F EGYPTE . PIPRTR. RE ■ M, PIRRTE. Lfl'JRUS, I . F, LRURIER 

5 PRTR CONV1VR. W.M, CONVIVE. INCOLA. HE. M. HABITANT, PERSR.fiE.M, PERSE 

6 PRTR SEOUHNR,RE,M,Lfl SEINE, PLHTRNUS, I ,F,PLRTRNE, VICTORIA. AE.F,VICTOIRE 
T DRTR FACTUM. IN, ACTION. UNDfl .flE.F. FLOT 

9 REM **»**»i»*i****»»*«**-T:r**M*'*#** 
3 PEM DRTA APJECTIFS 

i pem ******************************* 

2 DATA MAGNUS. fi. MM. CRFlW, FECUWUS.fi. UM. FERTILE. MULTI.RE.R, NOMBPE'i-- 

3 DATA BWJS.fi.UM. BON- ALBUS.fii.OT. BLANC JUCUNDUS . H . UM . RGREABLE 

<i PRTA PiJLCNEP.PR.RUM.BEA-J,BERTUS.R.UM,HEUPtN-- .RROBIJS H ,Ufr,HQNNETE 

', PRTR EGPEGIUS,H.iJM,PEMHRr)l.lBBLE.C.PRFrris..n.!.iM.r,RR- . PfWNi li . * . HM.ROMRIN 

5 DATA CLARUS P.UM.CELEBRE-[RRTUS,fl,lJM, IRRITE.LRETUS.A.UM, JOYEUX 

7 DRTR SHL VUS, A. Ufl.SRUVE, PARVUS, fi.UM. PETIT, PURUS.R.UM, PUR- SAEVUS, A, UM. CRUEL 
3 DATA MAXIMUS-A.iJM.LE PLUS CRPNP, BENIGNUS . A ■ UM, PIENVEILLfiNT . NRTUS. A.UM. NE 
9 DATA MALUS.A,Ufl.MECHANT,NATUS*RCr. .fi.UM.ACE DE , DOCTUS , A , UM , SRVflNT 

3 DATA PrGER.GRA.GRUM.PARESSEUX.IMPlGER-GPA.GPUM.TRftVRILLElJR 

1 DATA MISER. A MM. MISERABLE, LIBER -A.UM, LIBRE- ALTUS.fi. UM.HRUT 

2 DRTA TENEP.fl.UM.TENDPE.PROPINOUUS -A -MM PPQCHE L.CNCUS . fi . UM. LONG 

3 DATA IflGPRTUS.R.iJM, INGPRT-AEGEP. PR- RW,MRLRDE.PERITUS,R,UM, HABILE 

4 PRTA VAL IOUS ■ R, UM , ROBUSTE . OBSCUPUS . A . UM , OBSCURE . ATEP , RA , RUM - HOIP 
3 PATA MOVUS A UM Ni3UVEA'J.RNTlnuu<;.R.UM,RNCIEN,NOSTER.RA,RUM.NrjTPE 

5 [.PTB RPIPU?. A UM.AFIPE. LONGINOUUS.fi. UM.LOINTfilN.LATUS. A.UM. LARGE 
7 PATH MIPUS.RUM finrilPfle.LE INV1TUS-R ' 'M MAL GPF' liUELmj'MN ". 

B DRTR FRIGIPUS.fi- UM.FPniD 

3 PRTR FI.FI-FI.FI 

3 REM ttttrxxtxttffxxxxtxxtxxtxxxxxit 

1 REM DATA MOTS INVfiPIRBLES 

I PEM **rt***» *»»*■*** trrtjrtttt ****** 

3 PRTR NON.-.-NE PRS.ET, - , --ET. SED. - . --MRIS . ITRQUE, -, - , C'EST POURQUfil 

4 DfiTA NHM.-.-.CRR, IBl.-.-.Lfl 

J DATA NON TfiNTUM SED ETI AM . - , - . HON 'SEULEMENT MRIS RMS^l 

I PATA TAM.-.-.TELLEMEflT-SAEPE.-.-.SOUVENT.IN'-fflBLRTIF^.-.-.LIEU On L'ON EST 

7 PRTR CUM' *AeLRTIF v-.-.RVEC. I" f *fiCC. 1 ---. LIE" OU L'ON VA 

3 PRTR RDftflCC. >'--,-, VERS, RNTEf+fiCC. ■>.-.-. RVAHT . pnt,T' +Arr. ..-.-.rppes 

? PRTR INTER' »RCC. '■ - ■ - - ENTPE . PEP( *ftCC. v-.-.R TPRVEPS 

3 DATR PROPTER' *RCC. ),- -,fi :A<JSE DE. PC'/EPSVz' +RCC. ' . - . -.CONTPE 

1 DATA flPUD^'RCC, >.-.- CHE2 CHJELQU UN. PPOPE'*ACC. ',-,-, PRES DE 

I DRTR NUMPUfiM.-.-.NE.. . JRMHis, JRM- - . - .PEJfl. NUNr . - , -, MRINTENRNT 



( DfiTA ETIRM,-,-,RUSSI.H<JT,-,-,OU,SnTIS,-.-.S'JFFISRMENT.Liei.-,-.0"J L'ON EST 

I DATA QUO ?.-,-.OU L'ON VA,OUflRE '.-.-. POURCWJO I ; CUR '.-.-.PO>JROUOI 

[ DATA OljntlUDO ?, -,-, COMMENT. HOPIE. -.-, RUJOURD'HUI .RLlOUfiNDn , -, - . PUELQUEFOIS 

! DRTR ENIM,-,-.EN EFFET.SINE' *ABL. > ■- • -- SANS ■ PRO' +RBL. ' --OEVfiNT 

' PRTA PR0<+RBL. ).->-, R LB PLACE DE R' +ABL. ',-.-. LOIN PE .HB' tABL. ), -. -, LOIN 

1 DATA E(+HBL. ',-,-, HOPS DE, EX' *BBL. > . - . -, HOPS DE.PE' *fi8L. '. -• -,DU HAUT DE 

1 DRTR DE'+RBL. ),->--HU SUJET DE.OUOTIPIE ■ - . - . CMAOUE JOUP PEINDE, -, -. ENSUITE 

I PRTR ITR.-.-.fllNSI.QUOOUE.-.-.AU 1 ??: -"F ■ E-"" > ni 'E I-— ■ - ■ BIENTOT 

. PRTR NONNE--.-.EST Cg OUE. . . NE. . . PRS. CUM, - . - . LORSPUE . NUM . -, - ,EST CE QUE 

• DRTR cnjop,-,-,PflPCE QUE, NOW JRM.-.-;NE PLUS . TUH . - , -. RLORS, TUNC. -. -. RLORS 
I DRTR SEMPER. -.-.TOU JOURS 

1 DRTR FI.FI.FI.FI 

I PEM ******************************* 

; REM * VERBES * 

• REM ******************************* 

I DATA SUM, ES.ESSE.ETPE,APSUM,ES. ESSE. EIRE PRESENT . RBSUM, ES. ESSE - ETRE ABSENT 

r DRTR PESUM.ES.ESSE.MANOUEP A, PPAESUM . ES ■ ESSE COMMANDER 

» DRTA POSSUM. PCTES- POSSE. POUVC I P. PPOSMM.PPODES.PRnDESSE. ETRE UTILE 

, DATR PELECTO . AS, APE ■ CHAPMER . TENEO . E? - EPE TENIP . RMO, AS- fiRE. AIMER 

; PATA LAUPO.flS.fiRE.LOUEP.TIMEO.ES.ERECPAINPRE.rjRO.flS.APE.PRIER 

i DATA OPMO ■ RS . RRE . OPNER , VIDEO. ES' EPE .VOIR. AMBULG , AS ■ RRE , MARCHER 

I PRTA NECO ■ RS . RRE ■ TUER , VULNEPO, RS , APE ■ BLESSEP PORTO , RS . APE . PORTER 

J PRTR INTRO. RS. ARE. ENTPER.CUPO.RS.RPE.SniGNER.PORS, RRE. PONNER 

; PRTA HABITO.RS ARE. HRBITER.POTC.PS -fiRE.BOI RE- 1MMOLO . RS. RRE. IMMOLER 

' PRTR VBLEOES EPE- ETRE BIEN POPTANT . PEBEO . ES . ERE.PEVOIR 

I DATB STUDEn.ES.EPES'APPLIOUEP A . rANEO .ES • ERE ■ DEMEURER 

' DRTA VITUPEP'l. ASRRE.BLRMERVEPBEPO AS . RRE , FPAPPER. SEPEO ■ ES ■ ERE.ETRE RSSIS 

) DRTA PUGNO , AS , ARE . COMBATTPE . APn . As BPE . LRBCUPEP . HABEO . ES . ERE ■ TENIR 

1 PRTA MOMEO ■ ES , ERE RVERT IP . LABORO . AS , RRE , TRBVA I LLEP . CELEBPO . AS . ARE , CELEBRER 

> DATA CANTO AS • APE • CHANTER , NAPRO . AS APE PRCONTER ■ TEPREO . ES , ERE.. EFFRHYER 

J DATA RUGEO.ES.ERE.RUGMENTER.REPIFICO.flS APE .EPIFIER . C0LL0C0 ■ RS, RRE ■ PLRCER 

I DATA ERRO.RS.fiRE.SE TROMPER ■ ERRO • RS ARE . EPRER ■ INTERROGO . RS , RRE , INTEPROGER 

J DATA SLIPERSUM, ES. ESSE -SUPVI'-'RE. INTEPSUM.ES. ESSE. PAPTICIPER 

S DATA MOCEO.ES.ERE.NUIPE A . EXCITO. RS.RRE . FAIRE SOPTIP, SPECTO, fie . fiRE. REGARPER 

' prtr nhvigo.rsrpenrvigijepproperors.rre.se HRTER 

3 PRTR FI,FI, FI.FI 

? PRTA FIN, FIN, FIN. FIN 

3 REM MOTS ENTPES JUSQU'A LA PACE 51 

I REM ******************************* 

I REM * LISTE PES ERREURS 

3 CLS CRLL COLOR' "ORW" > 

» LOCRTE <2,10>'PRIHT "LISTE PES ERREURS "PRINT 

J LOCRTE (3.10VPRINT " "PRINT 

5 IF ffl<J9.THEM g§? 

' LOCRTE < 12.71 print "JE N'AI PAS ENCORE " 

3 LOCRTE <13.16VPRINT "ENPEGISTRE P'EPREUR "GOTO 296 



^9e fop i= 



TO f 



■ PRUSE ELSE 233 



! IF LIM3 THEN LI=0^PPINT THBf3 > ." 

f PRINT MO*' n;TRB< I8~>." ™> "«MN*f 1 

1 NEXT I 

! PRINT 

i LOCATE '22.331 PRINT "< — '". PRUSE 

1 REM ******************************* 

> REM * REVISION PES MOTS NON SUE * 

> REM ******************************* 
I CLS 

. CRLL COLCP'"0PUL" "LOCRTE <Z. 13 It PRINT "PPEEWI ISSI IOONN" 

! LOCATE '3.131 PRINT " " 

1 LOCRTE '3.6^ PRINT "OPEESS MMOOTTSS NNOONN SSUUSS" 

\ LOCRTE '6.6 > PRINT " ■ 

J CRLL COLOR' "eRU"i 

; LOCATE '22P'''PRINT "* CT^TPRPUrTION T CM1=MENM *" 

' FOP 1=1 TO FA 

1 LOCATE '12.2' PRINT PPT*f " ".get 

> LOCATE '12,21-PPINT "TRHPUIRE " . CRU rnunp' "OhU" > PRINT M0» f 1 > 
» LOCATE < 15. m- PRINT RPT»' " •• -Z?^ 

. CFILL COLOR' "ORN" ' LOCRTE ' 15. I ? v ACCEPT BEEP:P« 

? IF P*="M"THEN GnTO ■:? 

I IF P*=MNS' I 1THEN ^16 

I IF P«="T"THEN LOCATE MMr. PPIHT MN»' I v PRLISE 2 GCiTO 316 

5 GOTO ?!0 

E NEXT I 

■ GOTO ?n? 

J REM ******************************* 

> PEM * REMISE A ^EPO MEM" FRREMRC * 
j PEM ********ff*********Tt*********t 
! CLS "bBB-'CRLL. COLOR' "«PUHLF'"» 

> LOCATE '1? 10 ■■ PRINT "PP..AH..7Z FFAAIITTEE " 

' LOCRTE 'll.iavpRiMT "PR..AR..77 FFARIITTFE " Pfii«F 1 



la page pedagogique, 



la page pedagoZZ 



L'AGENCE INTORMATIQUE INIUTREE 
PAR LES ROUGES 



Non. le litre c esl pour se 
marrer ' Ca me replonge 
dans ("ambiance de I epoque 
Je veux encore vous parler 
de Mai 68 Que ceux qui 
n'ont pas connu se levent et 
sorlenl. Pour les autres, pre- 
pare? vos mouchoirs Alain 
GEISMAR. lex-secretaire ge- 
neral du SNESUP en 68. 
vient d'elre nomme direcleur 
general adjoint de I agence 
de lin'ormatique II etait 
sympa Geismar Un peu ron- 
douillard et |Ovial Tiens. a 
propos, je me demande ce 
quest devenu Sauvageot, 



son coHegue de la (merde 
j m rappelle plus le nom ') II 
travaille peut-etre che2 
Apple. J ai rjien retrouve un 
copam de 68 chez Alan, 
alors. . 




A TOUS LES RATELIERS 



C'est Paul Mc Cartney qui y 
mange ' Apres le disque el le 
film 'Broad Street', c'est le 
logiciel qui va lui rapporter 
des paquels de royalties. Le 
groupe de Paul esl parti du 
studio en week-end apres 
I enregistremenl de leur nou- 
veau lube Malheur ' La 
bande a disparu Prenez- 
vous pour Sherlock Holmes, 
remettez la main sur les 
membres du groupe (plan- 
ques dans Londresl et recon- 
duisez-les au studio en 
moms de quinze heures 
C esl Mind Games qui pro- 
pose ce |eu. pour Commo- 
dore 64 et Spectrum a 8 



livres (90 francs) et c esl CLJ 




FAITES LE MIM' AU CANADA 



La Bourboule vous ennuie, 
les Sables d'Otonne vous les 
brtsent, Juan fes Pins ne 
vous atlire plus et le Pays 
Basque est truffe de terrons- 
tes. Allez done passer vos 
vacances au Canada. Du 3 
au 5 juin vous en profiterez 
pouf faire un lour au Marche 
International du logiciel de 
Montreal qui regroupera pres 
de 250 exposants. dont une 
majorite d'Etats-zuniens 

Vous pourrez tenter la 
chance el essayer de vendre 
votre version de Homme-Pa- 
quel (Pac-Man), de Coureur 
de Filon (Lode Runner) ou de 
flenard du Ciel (Skyfox). 



Avec le max de royalties que 
vous empocherez, vous vous 
offnrez une viree en Califor- 
nia ou vous vous taperez la 
cloche avec le gagnant du 
concours trimestriel. en es- 
perant que ce sera une ga- 
gnante. Beau programme. 




la page pedagogique. 
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Formation a I'assembleur 



COURS D'ASSEMBLEUR 



Depjis plusieurs semainos. 
vous profited dun cours d as- 
sembler decompose en deux 
parties prmcipales (1'une theo- 
rique, I'aulre pratique). 
Cette semame le 6502 d'ORlC 
en pfend plein la memoire La 
semame prochame ce sera !e 
lour du 6502 de I'APPLE 



N°57- 
N s 58- 
N*59- 
N"60- 
N°61 - 
N"62- 
N°63- 
N°64- 
N°65- 
N°66- 
N°67- 



ORIC 1. ATMOS 

APPLE 

T07, T07 70 

COMMODORE 64 

ZX81 

ORIC 1, ATMOS 

APPLE 

TO 7. T07 70 

COMMODORE 64 

ORIC 1, ATMOS 
APPLE 
T07, T07 70 
COMMODORE 64 
ZX81 



Le Set-Reset possede trois 
etats de base que nousallons 
resume* ci-dessous: 

1. Eta! SET: s = el f = i (Q 
= 1 el q = 0) 

2. Etal RESET: s = 1 at f = 
(Q = Oelq = 1) 

3. Si S = 1 el J ■ 1. le circuit 
reste dans la derniere position 
qu'il occupait. En effet: 

a. s'il etai! a I'etat SET (S = 
Bt t - 1) quand s remonte a 1. 
les sorties Oe!q garden) pour 
valeur: Q = 1 et q = 

b. s'il etait a letat RESET (s 
= 1 el f = 0) quand f passe a 
1, les sorties Q et q garden! 
pour valeur: Q = et q = 1 

4. Quand s et f sont a zero, le 
systeme est dans I'etat SET 
(0 = 1 et q = 0) qui est done 
I'etat actif prioritaire. Si s re- 
monte a 1 et que f reste a 0. le 
systeme passera alors a 1'e.tat 
RESET. En revanche si f re- 
monte a 1 tandis que s garde 
pour vateur alors le sysleme 
restera dans I'etat SET. 

5. II reste un cas que nous 
n'avons pas etudie: si s et f re- 
montant simullanemenl a letat 
i. le systeme passera dans un 
eta! indeiermine (s = 1. f = 1 
et Q = OouQ = 1). 

II est done essential lorsque 
Ion utilise ce circuit de ne pas 
commander simultanement les 
deux entrees s et f. Ainsi. on 
Svilera de se retrouver avec 
un circuit dans un etal indeier- 
mine. Vous vous rendez bien 
compte que ce circuit, meme 
s'il n'est pas dependant de la 
pendute. doit etre manipule 
avec precaution pour ne pas 
arriver dans letat indeiermine 
vu ci-dessus. On voit claire- 
ment apparaitre une notion 
temporelle |usqu alors absente 
des circuits que nous avons 
Studies. Celte notion tempo- 
relle est londamentale en in- 
formatique. en effet il est inen- 
visageable de construire un 
micro-ordinateur sans tenir 
compte des facteurs temporels 
et de la synchronisation ne- 
cessaire entre les differents 
circuits efementaires qui le 
composenl. 

Celte fonction temporelte 
prend toute son importance 
dans les circuits que nous 
allons regarder mamtenant. Le 
premier sysleme que nous etu- 
dierons se nomme la bascule 



Pourquoi bascule ? Comme 
nous I'avons evoque plus to! 
dans ce cours, on parle de 
bascule pour tous les circuits 
dont I'etat varie sur les fronts 
"montants" ou "descendants" 
de I'horloge. La variable CK 
prend alternativemenl deux 
vafeurs (0 ou 1) suivant le 
rythme impose par le quartz 
qui compose le coeur de I'hor- 
loge. L instant du changemenl 
de vateur de CK est appele 
"FRONT". On parle de "front 
montant" lorsque CK passe de 
zero a un. reciproquemeni si 
CK passe de un a zero, on dira 



SCHEMA DE LA BASCULE D 





Dans le cas de la bascule D. 
on dispose dun circuit qui me- 
morise un signal sur le front 
montanl de I'horloge. Au mo- 
ment ou la variable CK passe 
de zero a un, lentree D est re- 
copiee dans la sortie O. De 
meme que pour le Sel-Reset la 
bascule D offre une sortie 
complementaire q. Mais regar- 
dons d'abord le schema sous 
forme de bnque informatique 
el sous forme de circuil 
compose de circuits electroni- 
ques elementaires. 

BASCULE D EN BRIQUE 



Cette equation admet deux so- 
lutions toutes deux indepen- 
danles de D: 



D'apres ce que nous avons 
appris du circuit Sel-Resel, 
pour ces deux solutions le cir- 
cuit S-R de some est dans son 
etat memoire quel que soit D. 
Les sorlies et q sont done 
independantes de D quel que 
soit I'etat de I'horloge (CK ■ 
OuCK = 1). 

Observons mainlenanl, a 
aide de chronogrammes, ce 
qui se passe lors des transi- 
tions. Nous etudierons done 
les deux possibilites suivan- 
les: soit = lorsque le fronl 
montant apparait au niveau de 
CK, soit Q ■ 1 lors de lappari- 
lion du Iront montanl. 
1, Chronogramme d'une bas- 
cule D ou la sortie Q etait a 
avant le front de montee de 



2. Chronogramme dune bas- 
cule D ou la sortie Q etait a 1 
avant le Iront de montee de 



._n^ 




J L 







Nous savons qu'au moment ou 
CK passe de a 1. lentree D 
esl recopiee sur la sortie O. 
Par la suite la vateur de ten- 
tree D pourra etre modiliee 
sans que I'etat de la sortie 
en soit aftecte, tant qu'un nou- 

pas detects au niveau de CK. 
Comme vous lavez sans 
doute constate en regardant le 
schema electronique de la 
bascule, celle-ci esl composee 
de circuits Set-Reset. Nous 
allons done pouvoir mener 
noire etude a partir de ces cir- 
cuits e'ementaires 

Regardons pour commencer 
ce qui se passe sur le circuit 
Set-Reset de sortie dont les 
entrees sont S el R. 



Set-Resel est done dans son 
etat de memoire quel que soit 
la vateur de D. Les deux sor- 
ties Q et q sont done indepen- 
dantes de D. 



L'activite du circuit S-R de sor- 
tie est done londamentale 
dans le lonclionnement de la 
bascule D. Le role de I'horloge 
CK nest pas non plus negli- 
geable. Les deux cas distmcts 
de fronl (montant ou descen- 
dant) n'influent heureusement 
pas sur I'etat de la sortie Q. 

1, transition de 1 a de CK 
(front de descente): ce Iron! 
n'a aucune influence sur le 
systeme car quand CK = 1, le 
S-R de sortie est dans une po- 
sition de memoire. Quand CK 
- alors S = R = 1. ce qui 
conlirme la situation de me- 
moire du S-R de sortie. 

2. Iransition de a 1 de CK 
(Iron! de montee): quand CK = 
0, les NANDs (1) et (4) sont 
bloques. S et R son! done tous 
deux egaux a 1. 

a. Si D ■ ei que CK passe 
de a 1. R recopiera la valeur 
deDa la sortie du NAND(1). 

b. Si D = 1 et que CK passe 
de a 1,8 prendra comme va- 
leur 0, le NAND (4) devenant 
actit alors que le NAND (3) 
sera au meme instant bloque. 



L'ASSEMBLEUR PRATIQUE 



Langage machine... sur oric 




LES DRAPEAUX en faire, de cetle superbe va- 
leur ? La comparer I CMP esl 

Aujourd'hui. nous allons acce- I'abrSviatton de "compare", 

lerer quelque peu le rythme pouvaient-ils trouver plus sim- 

Vous avez compns les princi- pie ? Oui, its auraienl pu dire a 

pes de base, vous vous eies quoi on compare la valeur en 

apercu que I'assembleur nest question. Comme je sms 

pas plus comphque que le sympa, je vous le dis sans 

basic, alors en route pour les supplement de prix; on la 

sommets. C'est parti. compare au contenu de laccu- 

II existe dans I'Oric. comme mulateur. 

dans toute machine, un petit Bon. apres deux instructions, it 

emplacement dans la memoire esl lemps de (aire le point, 

qui indique par des moyens L'aceumulateur contienl une 

que nous allons voir, i'etat de certaine valeur (que nous ne 

divers "drapeaux". Qu'est-ce connaissons pas) el nous 

qu'un drapeau ? C est un bit allons la comparer a AO Bon. 

ou un octet qui nous renseigne Et oil va se trouver le resut- 

sur I etal du processeur. tat? Hein ? OukilS, le resul- 

Je sais. nous sommes sur la tat ? Eh bien il est dans un 

demi-page de droite, et je ne drapeau. Ha Ha ! Vous ne 

vais pas vous assommer avec vous y attendiez pas. hein ? 

de grandes definitions incom- J'aime surprendre mon public, 

prehensibles. Prenons plutot Bon. je me calme. Ce drapeau 

un exemple frappant comme esl invisible, c'esl-a-dire que 

nous les aimons. et ce a laide vous ne pouvez pas lire le 

d'un petit listing, et j'irai meme contenu d'un octet pour 

jusqu'a dire DEUX listings connailre son etal. Par contre. 

puisque le n° i est celui que vous pouvez executer des ms- 

vous utiliserez si vous dispo- (ructions qui tiendront compte 

sez de I'assembleur de cet etat. 

"Monams", et le n° 2 dans le Le drapeau dont auquel que je 

cas contraire. veux vous causer pone le nom 

LISTING' charmant de Z, qui esl labre- 
viation de "zero". Lors de 

100 " CiRG $1000 I'operalion que nous venons 

110 "START! LDA *2DF d'effectuer, la comparaison a 

120 " CMPWAO donne un resultat. Soil elle 

130 •• bne suite s'avere exacte, soil elle esl 

IHQ <■ JM p. PHftNbE ,ausse Dans le premier cas. 

ma ufillTTCi r-MPtticjci c'esl-a-dire si l'aceumulateur 

ISO 8UJ It. LMHttSVH conlien! bien AO, le petit dra- 

160 0NE START peau z prendra automatique- 

170 " JMP fin menl i a va | eur o (zero). Inte- 

130 "CHflN&E:LDfl *BBft3 ressant, non? Et si I'accu fje 

190 " CMPtt»7 suis familiar, pardonnez-moi) 

200 " beq encore ne contient pas AO. la compa- 

2io " iNr *BBA^ raison sera fausse, et Z 

220 " jriP start contiendra la valeur 1 (un). 

2-30 "ENCTiRF-l riAtttO N0US av0flS avance ' mais 

Z30 ttNCOREil_Dfl»»0 qu'allons-nous en faire. de ce 

BTA *bba3 racre drapeau ? Nous allons 

250 " JMP STfiRT |e lesler ! El ce.pas plus lard 

260 "PIN: RTS que tout de suite, avec fins- 

truction "BNE SUITE". 
LISTING 2 une petite precision, loul 
-■ ., ,- ■■■., .:„.,:.. d'abord le mot suite" SSl un 
■vfiL("«"*o*i:FotEN,aiNE>t:CALi. label que j'ai choisi, il aurait pu 
"i^SlSf^ „ .. ^^ . s'appeler "cassoulet" ou "al- 
K.iuit£:%^?-'.«-'.™'°l: berX ' " designe I'endroil du 
ad. m.bb programme vers lequel je veux 
30 data c>-07.Fo-Oi.EE.03-BB que le processeur se branche. 
sc.oo.io.a9.oo.sd.a3.bb.4C.iw. Cela evite tout betemenl 
d'avoir a calculer des adres- 
Pelil mode d'emploi du pro- ses de tete. le programme as- 
gramme: si vous lapez sur la sembleur s'en chargeant . 
barre d'espace, le mo! "CAPS" BNE signifie "Branch if No! 
en haut de I'ecran va changer Equal", ce qui traduit du zou- 
de couleur Ires rapidement, si lou donne "branchemenl si d if - 
vous appuyez sur une autre ferent de zero". Si QUOI esl 
touche le defilement s'arretera different de zero ? Si Z Test ! 
et un appui sur ESC vous per- Ca y esl ? Vous accrochez les 
mettra de sortir. wagons ? 
Prenons les instructions une a Les operations auxquelles je 
une, c'esl la methode la plus viens de me livrer m'onl donne 
simple. El evitons loul de suite un resultal place dans Z, et je 
la premiere, qui n'est pas stan- declare que si Z n'est pas egal 
dard au 6502 mais est une a zero, cela signifie que la 
"pseudo-instruction" (de quoi ? comparaison est fausse, et je 
One instruction pirate ?) dont vais indiquer ou je veux de- 
le programme assembleur se tourner le programme dans ce 
serl pour determiner oil il doit cas. Si par contre la comparai- 
implanler le programme en son s'avere. I'instruclion sera 
memoire. sautee, et la suivante sera 
LDA $ 2DF. si vous avez suivi prise en compte. Resumons- 
les cours precedents, vous nous: si A contienl AO. le pro- 
devez comprendre. Apres exe- gramme continuera sans se 
cution de cette instruction, derouter; par contre. si son 
l'aceumulateur (vous savez, la contenu esl different, il ira 
variable A) contiendra la continuer lexecution a SUITE 
meme chose que ce qui est en Bon, JMP CHANGE, pas be- 
# 2DF. Ok? A= PEEK(# soin d'expliquer ? Saul incon- 
2DF). et on n en parle plus. ditionnel a I'adresse CHANGE. 
CMP « S ao. la, c'est plus dur. tout simplement. 
Vous savez aussi (decide- CMP# S 9B, on prend les 
ment, vous etes des genies !) memes et on recommence. Le 
que # S signifie "valeur imme- contenu de l'aceumulateur n'a 
diate". Ce n'est done pas avec pas ete affects par les prece- 
le contenu de i octet AO que denies operations, et on le 
nous allons trailer, mais avec compare cette fois a 9B (qui 
la valeur AO. Et qu'allons-nous correspond a la touche ESC). 



BNE START: meme chose, si 
la comparaison precedente est 
vraie, on saute cetle instruc- 
tion, si elle est fausse, on se 
branche en START. 
Un detail tres important: le 
branchemenl ne s eftectue pas 
sur une adresse absolue. mais 
par rapport a la positron de 
I instruction. On pourrait tra- 
duire cela par, dans le premier 
cas, "saute 3 octets, el conli- 
nue I execution". En effet, BNE 
SUITE se codera dans la me- 
moire "DO 03". Le fait que le 
second chiffre soit infeneur ou 
egal a 7F signifie que le bran- 
chemenl s'elfectuera vers 
lavant. Dans le second cas, 
BNE START sera code "DO 
F2". F2 est superieur a 7F. 
done le branchemenl s'elfec- 
tuera vers larriere, el I'instrue- 
tion signilie (allenlion) "bran- 
che-loi sur ('instruction qui se 
trouve (FE-F2) octets avant 
celle-ci". Je sais, c'est dur, 
mais il taut passer par la. 
Autre chose: les branche- 
ments ne peuveni pas s'eftec- 
tuer sur plus de 127 octets en 
avant ou en arriere. 
Continuons notre periple: JMP 
FIN ne doit pas vous poser de 
probleme, LDA $ BBA3 non 
plus, CMP# $ 7 non plus, et je 
change de paragraphe. 
Parce que la suivante. BEQ 
ENCORE, vous ne la connais- 
sez pas, Mais vous allez la 
trouver formidable: c'esl la 
meme que BNE. mais a I'en- 
vers. Cela signifie "Branch if 
EQual", que je n'hesiterai pas 
a traduire pas "branche si egal 
a zero", avec toute I'outrecui- 
dance qui me caractense. 
D'ou: si la comparaison est 
vraie, le programme se bran- 
che a I'endroil indique. sinon il 
saute I'instruclion purement et 
simplement. 
Voila voila. 

Ah pardon, c'est pas fini. La 
suivante, INC $ BBA3. vous ne 
la connaissez pas non plus, 
mais elle est encore plus sim- 
ple que les autres. INC signifie 
"incremente". Done. INC $ 
BBA3 veut dire "incremente de 
1 le contenu de I'adresse 
BBA3". Toujours ok ? POKE* 
BBA3,PEEK(# BBA3J+ 1. 
Ecco. 

Si le contenu de I'octet arrivait 
a FF. puis qu'on I'incremente 
une nouvelle fois, il reviendrait 
a 0, auquel cas lindicaleur Z 
serait automatiquement mis a 
0. Voila. 

Cetle tois-ci, le listing est ter- 
ming. Toutefois, j'aimerais 
ajouter quelques precisions: il 
existe d'aulres drapeaux que 
nous expliquerons lors du pro- 
Chain cours. C'est C (I'indiea- 
teur de retenue), V (lindica- 
leur de debordemenl de 
capacite). N (lindicaleur de 
signe), I (I'indicaleur d'inter- 
ruplion), B (I'indicateur de 
break) el D (I'indicaleur de 
mode decimal). Leur lonction- 
nement est identique a Z its 
peuvent prendre soit la valeur 
0, soit la valeur 1. 
Pour terminer, une petite 
anecdote amusante: la routine 
du saut indirect du 6502 esl 
buggee lorsque I'adresse est 
conlenue a cheval sur deux 
pages de memoire. Essayez le 
programme suivant: 
LDA# $ 00 
STA$ FF 
LDA# $ CO 
STAS0100 
JMP(SFF) 

Et votre pauvre becane est 
plantee. Interessant, non ? 
A la prochaine. 
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DEMANDEZ LE PROGRAMME soft-parade 



Achetez vos logiciels les yeux fermes, nous les avons testes pour vous 



Nous avons selectionne pour vous les meilleurs logiciels actuellement disponibles en France. Nous ne 
pretentions pas que cette liste est complete et definitive et II est evident que nousyrajouterons regulie- 
rement des programmes. Pourtant, vous chercherez en vain certains programmes qui jouissent d'une 
bonne reputation et qui se vendent surtout grace a la publicite et aux conseils des vendeurs quine peu - 
vent pas connaitre tous les logiciels disponibles. 

Les prix sont, nous I'esperons, les meilleurs du marche et les abonnes - anciens ou nouveaux - beneti- 
cient en plus d'une remise de 10 %. Si vous etes nombreux a nous suivre dans cette experience nous 
pourrons rapidement arriver a faire baisser les tarifs des fournisseurs pour atteindre I'objectifque nous 
nous sommes fixe: ramener les prix a une plus juste valeur ! 

Les classements sont farts en fonction de I'interet du programme et ne tiennent pas compte des prix, 
c 'est a vous dejuger de I'opportunite de la depense. N'oubliez quand meme pas que si le rapport quali- 
te/prix est mauvais, le logiciel ne peut figurer dans cette page ! 
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OHIC 1 / ATMOS 



RALLYE 



ATARI 



A bord de votre bolide, vous devez atteindre la ligne 
d'arrivee en temps limite. Attention: les murs consti- 
tuent un piege mortel car ils ont ete enduitsde glue. 
Changez de vitesse avec lo bouton de Br. 

Michel PICCO 



1 REM RALLYE de PICCO MICHEL 

2 REM ATARI XL 

3 REM 

5 Din Nl*(6],N2*(6),N3*C6:i,SCi:!80},A*[6) 

-SCC] )=B:SC(2)=0:SCC3)=e:SC=0:TA=0 

10 GOSUB 1200 

15 GOSUB 1200:&OSUB 1000 

20 HAUT=100:BAS=200:EST=300:OUEST=400 

30 SE=500:SO=600:N£=550:NO=650 

40 RETOUR=90 

49 REM 

50 REM riouwmsnt P'M 

51 REM 

60 JOY=STICKC0J:IF J0YO15 ANO PEEKC5325 

2KH THEN SC=SC+I0 

65 ON JOY GOSUB RE TOUR, RE TOUR. RE TOUR, RET 

0UR,SE,NE,EST,RET0UR,S0,N0,OUEST,RET0UR, 

BAS.HAUT.RETOUR 

70 IF STRIGC8)=0 AND VIT=1 THEN UIT=2.5: 

SOUND 0,243, 12, 4:SOUND 1,0,0,0:&OTO 90 

80 IF STRI6C0)=0 AND UIT = 2.5 THEN UIT = 1 I 

SOUND 1, 121, 12,4:SOUND 0,0,0,0 

90 TP=TP-CINT(UIT)*0.2);SC=INTCSC-(UIT*2 

)]:&OSUB 970:IF TP<1 THEN GOTO 1 800 

35 GOSUB 660:GOTO 60 

100 X=X-1 :REST0RE 120:IF X<0 THEN X=0 

105 IF PEEK153252)=1 THEN X=X+ I :SC=SC-25 

110 FOR 1=0 TO ?:REAO B :POKE PSTART+X+I, 
B=NEXT I 

111 POKE PSTART«X+ST,0:RETURN 

120 DATA 90,126,90,24,189,255,153,60 

200 X=X+1 :RESTORE 220=IF X>250 THEN X<=25 



205 IF PEEK(53252)=1 THEN X=X-J :SC»SC-25 

210 FOR 1=0 TO 7:READ B:POKE PSTftRT+X+I, 
B:NEXT I 

211 POKE PSTART+X-SU,0:RETURN 

220 DATA 60,153,255,189,24,90,126,90 

300 H=H+UIT:IF H>200 THEN H=200 

305 IF PEEK(53252)=1 THEN H=H-[UIT ) JSC=S 

C-25 

310 POKE HPOS.H 

312 IF LE*1 THEN LE=0:RETURN 

320 DATA 112,39,178,255,255,173,39,112 

330 RESTORE 320 

340 FOR 1=0 TO ?:R£AD B:P0KE PSTftRT+X+I, 

B=NEXT I 

350 RETURN 

400 H=H-UIT:IF H<50 THEN H=50 

485 IF PEEKC532S2J-1 THEN H-H+tUIT ) iGC-G 

r-25 

410 POKE HPOS,H 

412 IF LE=1 THEN LE=0:RETURN 

420 DftTA 14,228,77,255,255,77,228,14 

430 RESTORE 420 

440 FOR 1=0 TO 7:READ B:POKE PSTflRT+X+I, 

B:NEXT I 

450 RETURN 

500 QOSUB BAS:LE=l:GOSUB EST :RETURN 

550 GOSUB HftuT:LE=] :&OSUB EST :RETURN 

600 LE=l:GOSUB OUEST :GOSUB BftS:RETURN 

650 GOSUB HAUT:lE=1 :GOSUB OUEST :RETURN 

660 RE" Erreur* 

670 IF PEEKC53252)=0 THEN RETURN 
680 IF PEEK (53252!) = 2 THEN GOTO 700 
690 POKE 53278, 0:RETURN 

700 REM Uictoire 

?]0 RESTORE 730:POKE ?51,2:S0UN0 0,0,0,0 



SOUND 1 ,0,0,0 
720 ? CHRt[125]:P0KE 6S6,2:P0KE 657, 2s? 

Uous avez I'ETOFFE d ' un herot. 
?30 DATA 243, 121,60,243, 121,60,108,96,9 
.45,60, 108,96,91,45, 162,0 
740 FOR 1=1 TO ]7:READ SOiSOUND 3, SO, 10 

6:FOR J = l TO 30JNEXT j :next I 
750 FOR 1=1 TO 200:NEXT 1H : 
SE2 LE BOUTON POUR CONTINUER 
'60 IF STRIGC03O0 THEN 760 
770 POKE HPOS.UPOKE 5327B.0 





-^*trfr 



PRES 



780 1 



=Tfl+l 



790 SC=SC+200 

800 GOSUB 1600:GQTO 15 

970 REM Tableau 

9B0 POKE 656,l:P0KE 657,10:'' INTCTI 
-POKE 656,1 :POKE 657,22;-' INTCSCJ ; 
KE 65B,1 sPOKE 657,38:' XNTCUCT3I 
930 RETURN 
997 REM 
99B REM Inilt.Mi-t ion* 

999 REM 

1000 UIT=]sST=8:SUs! 

1010 PMUN=l :COL=704sHPOS=5324B 



1070 PSTART^PMBftSE+256+512 

1060 POKE C0L,54:H=119:POKE HPOS,H:<>OKE 

623,1 

1090 FOR 1=0 TO 255:P0KE PSTART+I, 8 :N£XT 

1100 GOSUB 400sSOUND 0, 121 , 12, 4 :RETURN 

1199 REM 

1200 REM Clrcuiti 

1201 REM 

1210 GRAPHICS 3:SETC010R 4, 0,0 :SETCOLOR 
2,a,2:SETC0L0R 0, 1 2, 6 sSETCOLOR l ( 3,B:POK 
E 752, 1 
1222 POKE 656, 1 sPOKE 657,0:' " TEMPS ! 

SCORE s UITESSE : " 
1230 COLOR 1 :PL0T 0,0:DRAUTO 39,0:DRAWTO 

39,I9:0RAUT0 0,19:DRAUTO 0,0 
1240 ON CHOIX GOSUB 1300,1400,1500 
1250 RETURN 

1299 REM 

1300 REM __ Clrcu.l N' I 

1301 REM 

1310 X=64:TP=INTCC75-TAJ-TPT RESTORE 136 

B 

IJ__ HUW J-] IU JV 

1330 READ PX.PY.DX.DY 

1340 PLOT PX,PY:DRAL!TO 0X,DY 

1350 NEXT J :C0L0R 2:PL0T 20. 5, 10 :DRAUT0 

20.5, 15:RE TURN 



:'P=INTCC85-TA]+TP] sRESTORE 146 
1420 FOR J=l TO 3B 

1430 reao px,py,dx,dy 

1440 plot px,py:drauto dx,dy 

1450 next j:color 2:plot 20. 5, 15 :drauto 

20.5, ib;return 

1460 DATA 0,1,3,1,36,1,33,1,0,2,2,2,37,2 

,39,2,0,3,1,3,38,3,39,3,7,4,32,4,15,5,25 

,5, 17,6,23,6, 18,7,22,7, 19, 8, 21, 8 

!470 DATA 

9,10,21,1 

.25.13.6, 

1480 DATA 0, 16: 

7,37,17,39, 

,3, 10,36, 10,39: 

1490 DATA 0,11 

2,38,12,39, 12, 



1, 16, 3B, 16,33, 16,0, 17,2, 1 
,18,3,18,36,18,39,18,0,10 
10,20, 15,20, 18 
2,11,37,11,39,11,0,12,1,1 
,6, 1,6,38,6,39,6,0,7,2,7, 



1,3,8,36,8,39,8 



37,7,39,7, 

1499 REM 

1500 REM Circuit N'3 

1501 REM 

1510 X=80:TP=INTU95-TA] + TP: :RESTORE 156 

a 

1520 FOR J = l TO 32 

1530 READ PX,PY,DX,OY 

1540 PLOT PX.PYIDRAUTO OX.DY 

!550 NEXT J:COLOR 2:PL0T 20. 5, 15 :DRAUTO 

20.5, 1B=RE TURN 

1560 DATA 0,1,3,1,36,1,39,1,0.2,2,2,37,2 

,39,2,0,3,1,3,38,3,39,3,7,4,31,4,27,5,32 

.5,0,6, 1,6,26,6,33,6 

1570 DATA 0,7,2,?,29,7,34,7,0,B,3,8,30,B 

.34,8,0,9,24,9,30,9,34,9,0, 10.3, 10,30, 10 

,34, 10,0, 11,2, 11,29,11,34,11 

1580 DATA 0,]2,l,12*i28,12,33,12,27,13,32 

.13,7.14,31,14,27,14,31,14,0,16,1,16,38, 

16,39, 16,0, 17,2, 17,37, 17,39, 17 

1590 OATA 0,18,3, 18,36, IB, 39, 18,20, 15,20 

,19 



i" CIRCUIT "; CHOIX 



; 'POUR I 



";5ELC1 



2.2 


2,16, 


2,24 


2 


37, 


J, 3 


38,3, 


33.3 






1370 DATF 


6.5 


4 


10, 


1,9 


27,5, 


13,5 


4 


5iC 


. 14 


2,24, 


'■34 


7 


4.! 


13B0 DATP 


4.5 


9 


34, 


34i 


0,4.5 


11, 


? 




, 12 


27, 12 


33) 


2 




1390 DATA 


0,5 


i: 


tie 


6,1 


16,17 


16, 


3. 




.16 


17,24 


17,37, 


17, 



2,39,2,0,3, 1,3, 17,3,2 



16, 15, IB, 25, IB, 36, IB, 33 



1601 REM 

1610 GRAPHICS 1+16:F0R 1=1 TO 50SNEXT I: 

POKE 53279,0 

1620 CH0IX=1 :SELCT=2 

!b'J- HU-1I1UN _,*1V KBI'HUUR JUUER.TAPE* 

':POSITION ?',6:' ieritorl" 
1640 POSITION 5,10s' *t 
1650 POSITION 5, 11 :' if 
1660 POSITION 2, 15:-> HE 
:'.TAPE. "POSITION 7,17:' tt6 j "*> led" 
1670 IF PEEKI532791=6 OR STRIGC0J=0 THEN 
RETURN 
1680 IF PEEK(53273J=5 THEN CHDIX=SELCT :S 
ELCT=SELCT*1 

1690 IF SELCT>3 THEN S£LCT=1 
1635 GOTO 1640 

1699 REM 

1700 REM Presentation 

1701 REM 

1710 GRAPHICS 1=S£TC0L0R 2,0,0 

1720 POSITION 4, 1 :' »6l"p icco mlchel" :F0 

R 1=1 TO I00SNEXT I 

1730 POSITION 7,7:' *6 1 



1740 POSITION 7,9:'' *6;'r_llye " 

1750 POSITION 7, 10:' «6; ' ' sCQR Ji 

1 TO 150SNEXT I 

1760 POSITION 0,16:' #6:'UTILISER LE JO- 
STICK 1 ' POSITION 0, 19:' *6\ ■ 

":FOR 1 = 1 TO ll:NEXT I 

1770 IF PEEKC53273)=6 OR STRIGt0J=0 THEh 
GOTO 1600 
1780 POSITION 0,16:'' Mi" 

■:POSITION 0,19:' *6 i " 
■:FOR 1=] TO 10:NEXT I 
1730 GOTO 1760 
1739 REM 

!800 REM Fin du t«»P* 

1801 REM 

1810 FOR 1=1 TO 250 STEP 0.7:SOUNO 2,1,: 

0,12:NEXT I:SOUND 0, 0,0,0 :S0UNO 1,0,0,0 

SOUND 2,0,0,0 

1815 FOR 1=1 TO 500:NEXT I 

1920 ? CHR«(125) 

1830 POKE 656,2:P0KE 657,6:' " FIN DU TE 

MPS REGLEMENTAIRE " :POKE HPOS, 1 

1840 FOR 1=1 TO 500:NEXT I 

1849 REM 

1B58 REM Retultats 

1B51 REM 

1B55 GOSUB 1950 

1B68 GRAPHICS 1+16 

1870 POSITION 5,2:? *fl;"r ally e'sPI 

ITION 5,3 = ' #6;" " 

1880 POSITION 1,7:? *6;'lup : 

1882 POSITION 1,10:' (t6i"2nd I 

18B5 POSITION 1,13:? »6;'3th : 

1890 POSITION 1,21 :' #6; "pour rejouer,, 

art" 

1900 POSITION 7,7=' "(6 ;N1* POSITION 15 

i? «6;scm 

1910 POSITION 7,]0:-> «6 ;N2* :P0SITION 1! 

10:? #6;SCC2) 

1920 POSITION 7,13:' 16 ;N3« POSITION 1! 

13:' *6;SCC3J 

1330 IF PEEKC532793=6 OR STRIG(01=0 TH[ 

SC=0:TA=0:GOTO 10 
1940 GOTO 1930 

1949 REM 

1950 REM Clossement 

1951 REM 

195S SC"INTCECJ 

1960 IF SC<SCt3J THEN RETURN 

1965 GOSUB 2010 

1970 IF SC<SC(2) THEN SCC3)=SC :N3*=A* :J 

'URN 

1980 IF SC<SC(i) THEN SCC3)=SCC2) :SCC2 

SC:N3»=N2*:N2*=ft«:RETURN 

'930 IF SC> = SCm THEN SC(3J=SC(2):SCC: 

^SCtl)iSCClJ=SC:N3*=N2«:N2«=Nl*:Nl*=A* 

ETURN 

2000 REM DEMANDE LE NOM 

2010 GRAPHICS 1 sSETCOLOR 2,4,0 

2020 POSITION 4,5:' *6i ENTRE TON NOM ' 

POSITION 4,6:' «6i'- " 

2030 POKE 656,2:O0KE 657,12:' ">> "i V 

UT A* 

2040 RETURN • 



Or TRS 80 

Suite de la page 8 



870 D2=D1<6) JD1=D1(7):GOSUB6500 

900 REM — ■ — — , ) TEST NUMERO 5 ===== 

910 CLS:PRINT_B, "TEST NUMERO ==> ( 5 > - i 

AND on 

920 FOR1=1T03:D(I)=RND(_) :NEXT 

930 DI I )=RND(7)-1 

940 IFD(I )+D( I-3>>_TH£NI=I-i:GOT093a 

945 IFI=6THENI=I+1 :G0TO938 

950 D(7)=D(4>+D( 1 ) :D(B)=D(5 )+D( 1' > :D( 9 ) =D( 6 ) +01 3 ) 

970 PRINT36*t,D»<D< 1 I )iS72,D«(DI( 1 ) ) ;aB6._»<D<2> > i.3 

■"t,D*iDH:"iSlBB,DVDOi'iS:i6.IHi01'.:!l)i 

9B0 PRINT_384,D*(DCt>l ;S392,D*(D1 <4> 1 ; SAOb, D» ( D ( 5 I 

li_i,14,D»<Dli5> ) 5 3419, D*<D(_> ) ; S436, D* < Dl < _ ) ) i 

990 PRINT37B4,D*(D<71 ) ;371_,0*(D1 (7) ) i372i>, D» ( D ( 8) 

(3734, DKD1 IB) ) 13740, D» 10) i3756.D*(0) i 

000 Gi:>SUBc>400:GOSUB6000 

010 IFT( 1 )=D(9>ANDT(2)=D1 I9)THENG=G»1 :GOSUE6200EL 
SEQOSUB6300 

020 Di'=D(9) :D1=D1(9)!GOSUB6500 

1-0 REM ■-■■•-=«-=.-=:«; TEST NUMERO _ <«■——■-— 

11H CLS:PRINT30, "TEST NUMERO == = < ii ) ■ i 3 GOSUB6600 
120 PRINT33S4 1 0S(01 ( 12> ) ;3392,D«(D1 (11)1 i 3406.0*1 
1< 10) ) S3414,D»(D1<9) ) ;3428,D«(Dl (6) ) i3436.D«(Dl (7 

130 PRINT3704,D*(D1 . - ; -j ' 1 . , :■* :.■ i ' ■ ; 3726, D* I Dl 
4) ) ;3734,DS(D1 (3) ) ;374B,O-(0> ;375_,D*<0) i 
140 GOSUB6400:GOSUB6000 

150 IFTI 1 )=D1 (2>ANDT(2>=D1( 1 )THENG=G+1 :GOSUB6200E 
LSEGO5UB6300 
id30 DI-D1 <2) :D1=D1 ( 1 ) :GOSUB6500 
200 REM ============> TEST NUMERO 7 ============ 



"TEST NUMERO = 



:GOSUB6_00: 



240 IFD(3>- 
K4) 
250 IFDI51- 



) :0THEND(B): 
) ..:0THEND(9)i 



270 PR1NT364,D«ID1<1 ) ) i372,D 
0*(0(2) ) ;3108,DS<D1 (7) >; 
PRINT33B4,D»(D1 ( 2 I ) 13392 
|4I4,D*(D(4) ) i3426,D*(DI< 

290 PRIMT3704,D«{D1 i 



1 )ELSED(7)=D( 1 

3)ELSED(8)=D(3 

5)ELSED(9)-D(5 

! ) ;_E_. '■'■■ D: (4 
D«ID(7) > i 
D«<D(3) ) ;340w,OS(D 
3436,D»(D(B) ) ; 
i3726,D«(D 



) 53712, D»<D(5) 
'5w,D*<l 



3734,D*(D(6> ) i374B,D* 
300 GOSUBb4Q0:GO5UBwB00 

310 IFTI 1 )»Dl{9)ANDT(2>=D(9)THENG=G+l:GOSUB_200EL 
SEGO5UB6300 
320 D2=D1 t9> :D1=D(9) :GOSUBbS00 
400 REM ============> TEST NUMERO 8 ;============ 

410 CLS:PRINT30,-TEST NUMERO ==' (8> * I :GOSUB__00 

420 PRINT3394,D*(D1 ! 1 > ) ;3392, D« (Dl ( 3) ) ;_40-.D«(Dl 

4) ) ;a414,D»(Dl (_) ) ;342B,D«ID1 ( 7 ) ) : 34 36, D» ( Dl ( 2) > i 

430 PRINT3704.DKD1 (3) 1 -3712, D» ( DI <5 ) ) ;a72_,D*(Dl 

6) ) 13734, D«(D1 (1 ) ) ;3748 1 D*<0) ;375w,D*<0) ; 

440 GO5UB6400:GOSUB6000 

450 IFTI 1 )iDI(2)ANDT(2)=Dl ( 4 ) THENG=G-2:GOSUB_200E 

SEGOSUB6300 

460 D2=DH2):D1=D1 (4) :GOSUB_500 

500 REM ===========, TEST NUMERO 9 .■====.======= 

510 CLS:PRINT30. "TEST NUMERO == • ( 9 )" i : RANDOM: T«= 

3456" : 1=0 

520 I=I+l:P=RND(4) 

530 T1»=MID*(T»,P, 1 ) :D( I)=VAL(T1«) 

540 IFI''2TMEN1520 

550 D<3>=D(2>-1 iD(4)-D(l ) 



2 J D < 7 ) =D ( 2 > -3 : D I B ) = 

560 PRINTai0B,D*(D( 1 ) 1 i 31 16, D« ID< 2) 1 
370 PRINT33B4,D*(DI3) ) :3392,D*(D( 1 ) 
;3414,D«(D(3) ) i342B,D*(D(5) ) 5 3436, DC 
590 PRINTa704,D«<D<6> ) i_712, D« ( D (5 ) 
S3VJ4, !)*([)( 6J > 5 374B.DX0) 5 3756, D*iB 
590 GOSUB6400:GOSUB6000 
600 IFT( 1 )=D<B)ANDT(2)=D(7)THENG=G+2:GOSUF6200ELS 
E5O5UB6300 
610 D2=D(B) :D1»D(7) IGOSUB6500 
700 REM = =====■>==«, TEST NUMERO 10 

710 CLS:PRINTa0, "TEST NUMERO == ' <10>": 
RANDOM 

7*20 F0RI = 1T03:D( I ) = RND<6) :NEXT 
730 D( I )=RND<7)-1 

740 IFD( I)+D(I-3)?6THENI = I-1 ! GOTO 1730 
745 IFK6THENI = I + 1 :GOTO1730 
750 D(7)=D(1)+D<4>:D(9)=D(2>+D(5>:DC9)= 
lIDIl) 
0B,D* 
!INT3384,D«(D(2) 



34_6,D*(D(' 
(D<4) ) ; 

D*IDI' 



: GOSUB-600 



;342B,DS(D(5) 
!INTa704,D»ID(3) ) i3712,D»(DK3) 



.'--:-.:..* ;3756,D*(0) : 



) 13734, D«(D 

790 GOSUB6400:Gu5UB6000 
B00 IFTI 1 )=D(61ANDT(2)=D1 (2!TMEI 
SEGOSUB630H 
B10 D2=D<6) :D1=D1 (2) IGOSUB6500 
9B0 REM —hub = mm*m) TEST NUMERO 
910 CLSiPRINTaa. "TEST NUMERO == 
RANDOM 



UGOSUB62B0EL 



:D(5)=D(2)-2iD(( 



GHOST CASTLE 



COMMODORE 64 



Si les fantomes ne vous effraient pas. n'hesitez pas a 
leur faire la chasse. Attention tout contact avec I'un 
d'entre eux ou avec un des murs du chateau vous 
sera fatal. 

Herve JOURDAN 



tsie 


:->.l.i 








1988 




189S 




1100 




1110 




1120 




1130 






. &VSUB1596 


1150 



;7S'=30 



90 1FPEE1 (44 ■:: 10THEN1- 
100 HJ-"IJH INi.lHHI ':VF 
110 FORI =tlTuti REflCQ PI 
IlO F0RU=32T035 FuPI=81 
130 FOR I =0To--..2 PEADO K 



.i P,..it...i4ij.4 FJjtE t 041.15 P0hE2O42.13 

.i POfE204„.;_ fun:2044.1> P0FE2Q47 1' 

i PipIE.04* 14 FOFE2047-14 F'OF.EV+37 ■ 9 

H Put EV+ 33 ■ 2 Ri.iFEV+39, 14 FuFb.V.40 2 

j Pull- -41 ■■ F-Oi t-.'tJ,.-.- POJ L7-4. ... 

j Fi.iF tV4J... Kit t'T'+45,0 POt-EV+46,0 

.i GOSUE. 1 7'20 P0FE5J26I.1 PRINTtHRr, 142 ■ 

3 REM ♦«♦ I FANTOtlE *♦* 

3 OOSUB94B 

3 :>U'=^3 X'i;=3o ;■:'.£ i =*:« ;:• 3.'=200 x<4>«] 

3 V'.0'M60 V'1» = 15* V'2'=64 V ■- 3 ' = 20* V'4,=S0 V'.7"=200 

J N=2 POFEV+21.7 

J GOSUB910 

J ■iV'i4--i:.i HH^PEEk'V + 3..., M.-PEEF- '•'.'* 3 1 ■ 

3 [FPEEi-25P = l THEMOii-JJtU-ee G0T0388 

J iP.PEEK.'-,'-.,n.HNL.l ■--[.;*■ PEE! -V + 31 'MtlDl.. = lTHEU003UF.:l::'.i.i 

G1JTQ330 

.' IF',".--OTHEN1800 

3 IFPEEKCVJClBTHEWia 

3 GOT0350 

3 re»T>+i 

3 1FTB=2THENTE=6 GUT0440 

3 GO-.IJB 1 1 00 '..UVJH I-.O0 L.UTU ,;;... 

3 REM »♦* 2 RAHTOMES **• 

i GOSUB940 

3 n=:: P0F,EV*21.15 

3 .O8i.iE.9I0 Oi33UE130O 

i 3Y849165 HH^PEEI'V'30' KF^REEF'7 + 31 ' 

J [FPEEl '271 ■ : : rHtnr.i.r-,i.!m JiOfi G0TO510 

if IF.pEEK'V + 30'HllL'l . = 1UP.PEEI...V31 iffllDlJ = l THENGOSUB1310 

G0T0460 
J IFV8=OTHEN18&0 
3 1FPEEF 'V' :J0THEH54G 
3 COTO430 
3 TB=TB*1 

3 IFTB=2THENTB=0 GOT0570 
GO3UB110G G0T0460 
& REM *«« 3 FANTOMES *•* 
■J I.-.. ■.UU-.-4U 0U'_,FJB1 300 

y ;■■■> puf tv+ti,-.ti 

3 GOSUB910 

3 ■ YS4917-1 HH=PEE.s ■ V.30 . PK = PEEF ■.'.■'.;! ■ 

9 IFPEEK<2'ili-ITHEHGOSiJBI2O0 GOTO640 

J 1F-PEEI :•'.'- :i.j..-IIIjI •'.'*■ Pt LP • V-.J1 ,HIID1 . - 1 IHtl+COSUBl 310 

GOT 0330 

J 1FV8=0THEN180O 

3 IFF'EEK'V- :10THEII670 

3 0OTOS1B 

3 TB*TB+1 

■i IFTB-BTH6WTB-0 MT0P8B 

•J '..OiUEllOO WiUBlJCiy C_ ro^iM 

3 REM ♦»* 4 FANTOTIES **» 

3 G07Ufc940 rfi'-MW 300 

3 H=5 POFEV+21.63 

3 GOSUB910 

3V643l::0 HH=PEEI ■ '-.-'+30 ' l.k=PEEK< V+311 

3 [FREEF'251 ■ = ]THEMniJii.iBl i -M0 GOTO770 

■J lFiPEEH'.V+ld/AIIIH , = 10R< REEF' < V+31 .Alll'l ■ = lTHEHi..iV i iJfl -AS) 

GOTO720 
3 if ,3=OTHENI8O0 
IFPEE^-.V'ClOTHEHiw 
WT0740 
TB=TB+1 
!.i IFT;:=2THEN830 

.' w:.i.itu>>3 i.-u-:.ui 1 jy-i Oi.ir.j.^o 

a PEN SORTIE 



■i'j :■'.![: 1 itfO 






i. Put E 


pijKEv-ir.i 








hOFT'OTOi.. 








POKE V+ It 1 








f-..ipt<.uto;j_ 








F'0l'EV+2l.C 








r.Ti.il .mm 








r..ipi..i=OTi;in 






iie::i i " 


RETUPII 








REM HFF1CHR0E 






P0KEV+U*2. 


I'll 




F-RIHT"3" 


■M 


=*:08 


V-i' ■-■]•> 



.HE. 7-1 -i I D>E.:7. 




PPlHTflU FPll'TflSt PFTNIPct PFHHpiit PFTNTfl?! 

F.jF:=oro7. r-F-iuTMit NEi'iT 

f" iNiMJt i" ..pi sC'Tij"; f ' is""- i '-E r 

PFTNTA6J F0PT=0T04 FFUITPin tlEIlT PRIIIlHII. PR I FIT"*' 

PBINTTHBl 33 J -,, iC OPE"' PRINT "•HT1HB' 33j-VIES"VS PRINT 

PPINT"B"TflB':32^HS 

RETURN 

PFTNT"X ;:<o>=50 V'U^206 

E3J = ,i « 1 IF 

n?t= n a ■ i J ■" 

Bet>-ai ■ 



i 



■» - 



;■■■-<; ^ 



-J'A R 1 F ^ " 34 
3«0 B2*«"a 9 



-a ■ 

B2*="S 9~ 
B3S-'i 9 

FFIHTHH FFINTm,:! PI- ilJTM.il PrllllMSI PF I NT fit F.jPT=UTO^ 

PRiHTrisi he; it PFii.uioi F:.iFr=or.j7 priktbu next 

PPIIITB2I F0PT=UT04 FPlHTtJiF NE IT PPIIJTH1I, PRIHT"«" &OTO1O70 

REM TIR 

P0KE251 .0 

lF<PEEK".V+iO.'HNI««;.-i-THEN;(i:.i +>.i GO-UB1300 COI01330 

IF FEE! ■■■.■'- :-t"f"tnl'4 ■-41HEril-:-:'.tlu i» ; iJBliW 0'3Ti3Ii4»3 

IF'T-Etl ■ V+Vi'HIJKi'^E.THEPiiC-SH + liJ COiUEll-OO OC'Tul 170 

IF.: tef ■;■•_■.' "IIH. ^ltTHENv-C =-..i.. + 10 OCfiUBl i«u 'idTdi >;.m 

IF'.PEEf • V+ ?i.i HULi ^ ■ = ;, THEN-r^C + lEI Cn;i.iE13O0 C.OT0137O 

POiEV + il.'FEEi V..1 ■HM'll:?: 

HH=PEEKCV*30> RETUPH 

PEn HFTICHflGE 

PRINT "JJUDWTFlB' 32r3C PPINT-B'TMl^ 37>Vi RETURFI 

Vi=v;-1 COiUBlSOO RETURN 

REM Pu.II I'.itli- FftNTOMES 

POt EV-Z1 ■ ■ PEEt ■■ •* '. ■ftNI..':.; ■ &0T01270 

POt E'/+4 . it!-;: POi EV+CiO': GOTG1270 

POKEV+6,50 POKEV+7.208 00T01270 

POFEV+t-.rO FWEV+3,140 orjTOlirtl 

POKEV+IO.20S PGKEV+11.IS0 00T0127« 

PQKE53231,1 PR1NT"3 33 " 

F-RINT" « ■ 

PRIHT" W •" PRINT" ■»» H PRINT" M 

PRINT 1 ' 19 " PRINT 1 ' 19 "M Bl 

PRIin" • " PRINT "tl II M " PRINT"!* II ■ 

PRINT"ia "Mil ' PPINT"a 

PRiNT"a a ■ ■ PRiNT-a a ■ 
pplNT-a a ■ a ■ - ppinT-a a • 

PRINT"a a ■ " FO RV=1T05 PRINT-B "NEXT 

FPINT"a ■" *U 

PRINT"* IBM "- PPINT-M". 

FFTUTCHPI. 14 ■ PRINTTFiB.-t'J--ai r 9 , t«i l'T 

RETURN 

REI1 CMPI-fiFFICHFlGE 

PRllJIrF.;. J ■ Ft.PI = l TiJLEII Ml, PFTNTTmE' I 'I .-Mll't ■ Ml . 1 , 1 ■ 

: I-"-;- ..-.• '■= TH 

IFhSCMIMFi*,!,! > J = 32THEN1570 

POIEi+24.15 P0HES+5.1O POFES+6.4 

" " 33 POKES. 33 POKES+4.33 POKES'4,32 

RETURN 

REM IHlTIflLISHTlON 

■^•JAJl-L FijRT = iT(J£+24 POUET.O NEXT 

Rjf-'BONJOW J"80 K-20 GOSUB1310 

hi="voife niiiioFi coNSiiTE- j=er k-14 gosubi3io 

Hi="ft SOPTIR BU CHRTEFW" J=20 K=3 GOSUB1510 

M*="HRNTE PHP EES FRHTijHES" J = 19 i =0 G0SUB1510 

RjT="REDOUTmBLES." J=25 K=0 00SUB1310 

flI="j<0TPE RFME EST UH 1 ' J=64 K=0 GOSUB1510 

fl»="RfiV0N PflPflLVSflHT . " J-23 COSUB1510 

M*"SEFIEZ-VOUS CFIP ILS" 3=62 K=0 COSUB1510 

fiJ=' i REMPPflRHlSSENT Fi UH" .1=20 F =*G GOSL'BlSie 

R.*-"ENDROIT PRECIS.tHRE B VOUS" J"18 K=0 GOSU61710 

RETURN 

REM fflJIMHTlON 

POKE2040.34 ■ POK.EV+ 1 , 205 Z=.5 POKEV+21,1 POKE V* 2 7, 1 

POKEV+ie.l F0PI=ei'TO>3 c ,TEF-l POPE'.M P.JKE204O, 34.5+Z 

F:;.RFi=i:TOSij IIEI-IT Z*-Z = MEXT 

POKEV*16,0 

FOPI=255TO100STEP-3 POKEV, 1 P0KE204O.34.5+2 

Frcft^r.nj.iO H£>IT Z=-Z NEXT 

POKEV+21,0 RETURN 

REM FIN DE PflPtlE 

P0KEV21 . 

GOSUB1380 

iFi.;:.N-=THENrii=ii: 

Mi= ■vnuLEZ- , . , n'Jl PEIO'JEP " " J = --7 (-0 0..'7jI 17H.1 

ROtE 198.0 

L.ETFF 

IFP*="0"THENVS-3 SC=0 Tl-2 T2'2 PPINTCHPK 142> TB=0 G0TO2?0 

IFPI="H"rHEIIfF!N: I". F-FINTCHPf ' H, ■ flJL 

GOTO 1860 

REM RECFKHP'iEMENT 

HI = "VOUS HVEZ OiJlLIEZ DE TAPER" J=S4 f ^0 OO'iOB [ 7 1 

itI--"Fi-iF E44. 10 FOI EZ-7CO0" > = Z± > =0 OOiUBlSlO 

F.jPv^i'TO'iOOO HE. IT PPINT"T. ENB NEW 

REM SPRITES 

[iFtTF.0 -0. 0-0. 0.0. *}. -:2. 0-0. 112.0.0. H.-E, o. 1 . ZS2 . 0. 7-277 ■ 12L •;-:- t 77. 

WiTMo ::■ 27,4.12-.. 77. 272. 128. i?. 252.0. '}■ 24?. 0.1.243,0. 1- 240. 0.3.22-) 

DfiTFI3. 192. 0.3- 128.0. 7. 0.0. 7. 0.0. 14. 0.0. 28. 0.0 



3 IWTFI170, 123,0,, 

54,0,80:30 
) DATAO. 8.0.0.6; 



.'.^7.0.3.240.0.: 

^77, 0.0, 140.1 3.0. 17C 

0. US. 128.0,162, 12; 

8.0.170,128.0 

■0 0.21. 0,0. SI- 64, f 



2070 I 



203U [IF".' 



:-16i 0.2.139.0-2.42.0.2-1713 

1.-" o 170,0,0,84 
0- It?- 0.1:1.0. 5. 5.0 
1.0.0 3-192.0.13.240,0.31, 

248,0.25. 172, 0. 77. 17P.0. 63. 252.0 
2110 I'MTik. i . 272 ■ ■ >.: I. ■ s 72 ■ . 2:3 . Ik- ■ 31 . ..■.!:; . 

0. 17 24fi m , !... .0 1.1.1.1.... ..i 0.0 

2120 DATA0.O.O.O.Q.O 0.0. 0. 0. 0. 0. 0,0.0.0,0, 

0,0 
2130 DRTA0. 0.0, O-0.O- 00. 0.0 0.0.0.0.0.0,0. 

0,0, 0,0. 00, 00, 0.0. 0.0. 0.0 
2140 BATA0, 255, 277. 277, 0.0. 0.0. 0,0, O.G, 0,0, 

GO O.O. O.0. O.O. 0,0, 0.9 
2150 DflTAO.0 
2160 REM LANGRGE NACHINF. 
2170 DATA032.243, 192,032, 119. 194,032,000 
2130 DATA195, 032. 11?. r>4.0?*. 032, £133,1:37 
2190 DATA076, 000, 192,032, 119,194,032,075 
2280 DRTH135. 076. 01 3, 192.P32. 112, 195-076 
2210 DATA019.192 

2220 DhTA174,000,208, 172.001.208. 173,001 
2230 DATAZ20 ,201273 240 . 037 , 201 , 254 , 240 
2240 DATA039 - 20 1.270- 240 04 1 . ?01 , 249, 240 
2250 URTA044 . 20 1 . 246 . 240 . 047 . 201 , 245 ■ 240 
,.2m; HOTM07O 201. 24,- 240 ■ 0^,7 ■ 201 .251 ■ 240 
2270 BATA084 , 201 . 23 1 , 240 - 103 i 201 , 235 , 240 
2280 DflTfil 16.096 200.200 MO ■ 001 . 203 ■ 096 
2290 BftTfil36. 1 36 . 140.001 208,096,032,043 
2300 DATFtl93-O32,083, 193,096.032.083.193 
2310 DATA032.iV:,' 193 096 0.32, 043, 193,032 
2320 DATF>077. 193.096-032-037, 193. 032. £-77 
2330 DflTH193 - 096 , 232 232-142, 000 - 20S 09. 
2340 DATR202. 202 142 . 000.203, 096. 173, 24S 
2350 DBTFW07. 201. 032. 203-008. 169- 033. 141 
2360 DATft243-007.076.07I'. 193, 169.032. 141 
2 370 DHTFi^43.007 O7-i.0I'7.193. 1 7 3-248. 007 
2330 DATA20I . j4 . 208 . WS - 169, 035, 141 . 248 
2 J?0 DATR007 . 076 -083.1 9 3 - 169 , 034 . 141 . 248 
24,10 DHlfti.ii'.' 076 033. 19 3. 169, 032, 141.248 
2410 DATH007 024. 1 ." . OLIO 20:.:. li.'',OI . - 141 
2420 DflTflO14,20y.O76,166,193,l6y.OJ4,14I 
2430 DATA24S . 007 . 076 .1.-3, U0O . 208 ,233-019 
2440 DATA1 4 1.0 14. 208 173. OOl, 209. 14 1,0 15 
2450 DATA203 . 1 T3 . 021 - ..'08. 009. 128. 141 .021 
2460 Uftm208. U.9.0O1. 133.271,096 
2470 DATA167 2">l,201 .OOl .240.00 3,076,140 
2480 DWTA194. 233. 002. 205. 233 -0O3. 208. t 'j::: 
7490 HftTftOO.:. t 0307-: 149.194 2-3. 00,: . 20Y 

27oo tiftTH20i; . oo :■ ■ 20=? . 206 . 00 :. . 2013 , 1 74 , 002 

2710 LftTft20:3-224, 277- 240, 012. 172'OOJ. 2U: : . 

27^0 LftTftlV2, 070-^40. Oil . 192,230-240,007 

L'L.:>.- [iftTft096- 169.024.141 . 002 . 20S .ij'W . In7 

2540 DATA254 201. 007 . 2 40 . 00": .2 30 274. it=»F. 

2570 DATA169. 001, 133,254.096 

2560 BATA173-0O0 . 208 . 207 . 004 . 208,043.028 

2570 DATA240,OO3 23:3. 004. t 0::. tV1.m\ .20:: 

2580 DATA205 - 007 203 , 04i 013,234. 240 , 00.3 

1590 HftTft238 ■ 007 . ZtJi ■ v>?-i- ■ Lv-: ■ 0>'4 . 208 . OIV, 

2600 IiftTftOi: l:^.2i.i- i)-<' ^Or.O". 133.0UO 

2610 BATA203, 205. 0O6. 2-08 04i, 01.-. 240.003 

2620 DftTft233.0o6._k.': I .'.-. j.i ....':. mm.' 

2630 DATfl203-O48O:^ _4., .■•■. t , ,ji,.,- . 2u8 

2640 HftTft096.ro---.. ■-•<■■ ,.'■ ,-.-6.071 195 2"6 




SPECTRUM 
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699£ REM •* 
ae05 LET po 
9>2ie LET po 



XPLOSIONtt* 
0+1: PRINT AT ; 



sail If po>ae then let po-e 

TO 9i3S« 

9015 00 TO 9£13 

aese let poapoti: print rt 

INK S,"S" 

9asa If bo-28 then let oo«9 

TO 9090 

geea so to saaa 

909a PRINT AT X.tf; " " 

Size FOR 2-33 TO -18 STEP - 

EP .01,2 i NEXT I 

9101 CLS 

911B REM *«**PRe3ENTRTI0N**»« 

9111 BOROER a PAPER a CLS 

9i Wm P *M '~'~ ~ 2 ' t - K I I 
9iai>CLS 



9111 BORDER a: PfiPER 0: CLS 
9l5a PRINT AT 1,8; INK 7 , " | | 

.Kfl. 1 U 

9135 INK 5: PLOT a,0: OFtRU 865.0 
: DRflU 0,175: DRAU -255-0. ORRU 
«, -175 

9140 PLOT £0,123 ORRU 215,0 
91*1 PLOT 30,115: PRflU 195,0 
91*5 PRINT AT 7,5, INK 6, ****** 
*'; INK *, DRIQliT 1, "PROGRAMME" , 

9150 PRINT RT B,7: INK 6. '«•♦»* 

. INK 5, BRIOMT 1,'CREE PAR", In 



BE 



9155 PRINT AT 9,9 
NK 3, "L.FRP.NC0I5" 

9159 INK -0 PRPER 
.31, T". AT 17,30, 
'.At 19,28, T", AT 

1.86, '/'' 

9160 INK 2 PAPER 
,31, "F'.AT '- 

■ .at 2e.ae 

9170 INK 6 



2 PRINT AT 16 
/".AT 16,29, T 
20,27, "F'.AT 3 

-.- 6 PRINT AT 17 
18.30, T . AT 19,29, -f 
"F",RT 21,27, "f" 
PAPER *. PRINT AT Ifl 



9181 INK 5 PAPER 
.31, "r",RT 21,30, r 
9190 INK 7. PAPER 0: PLOT 2*0,0: 
OPRU INK 5.15,0: DRAU INK 8,0,1 

9200 INK *: PLOT *8,56. DRAU 63, 
0,PI^*: DRRU -31, 10, PI/5: PLOT * 
8,56 ORAU 21,10, -PI/5 
9310 PLOT 6*, 56: DRAU 31,0, PI/6 

DRAU -31,0, PI 
9330 PLOT 45,5c, DRAU 63,0, PI/3 
9235 IF SCOrt-100 TMEN PRINT RT 
1*,16, INK 0, PAPER 7, PLASM l," 
WOUS AVE2 GAOnE'.RT 16,17, INK 
, PAPER 7, "FELICITATIONS" 
9330 PRINT AT 20,1; INK 3, BRIGH 
T 1, UNE PRRTIE 7 (Y/N) " 
92*0 GO SUB 9500 

9250 IF INKEYt"'« " TMEN GO SUB 2 
GO TO 50 

9251 IF INKEYt-"n ' TMEN GO TO 92 
50 

TMEN GO SUB 3 



,AT 30,39, T 9353 IF INKEYl-'N" TMEN 00 TO 93 
50 

9360 GO TO 9260 

9500 BEEP .09,3: PAUSE .9: BEEP 
.09,3: PAUSE .9: BEEP .09,3: PAU 
PRINT AT 30 5E 1; BEEP ,08,10: PAUSE *: BEEP 
.6,12: PAUSE *: BEEP ,5,1*: PAU 
5£ i: BEEP .3.15 
9505 PAUSE 6 

9510 BEEP .09,3: PAUSE 1: BEEP . 
09,2: PAUSE 1: BEEP .09.3: PAUSE 
2: BEEP .08.0: PAUSE 5: BEEP .5 
.5 PAUSe 5: BEEP .5.-1: PRU5E 2 
BEEP .3,-2 



9520 RETURN 

9550 REM *»UAU 

3600 REM A-.I 

9610 REM 6= 

9612 ReM f-i 

9613 REM Da 

8618 REM Oa 

620 REM Hal 

S623 REM Pa 

962* REM Oa 

9626 REM U»! 

9628 REM TI 

9630 REM 

9532 REM 

963* REM 



JRS ORAPMIOUES* 






EUDIPE 



Mais oui ! Grace a un tel programme, vos talents de 
dessinateur peuvent tres bien s'exprimer sur un 
CANON... 

Stephane SHIRVANIAN 

Mode d'emploi: 

Ce programme est destine a un CANON X07 muni dune carte d'ex- 
tension 4K RAM. Apres I'avoir tape (et ventre les Datas) laites RUN 
et edacez toutes les lignes Tapez ensuite 
STARTS - "POKE 154.160 ;POKE 155,31'- CHRS (13) 
OFF 1 . 

II vous suffira pour le (aire fonctionner de taper PAINT Apres appa- 
rition du message dentree. tapez one louche et le programme se 
mettra en route. Pour interrompre son tonclionnement taoez 
BREAK ou OFF. 

Si vous desirez entrer un autre programme avec celui-ci noubtiez 
pas de laper la ligne CLEAR 50. & H1F9F en debul de programme 
afin de le preserver. 



N.B.: Le deplacement du crayon se lail avec H 
(huil directions). 

Lorsqu'on valide un point, le crayon disparatt. i 
reapparaftre ce qui permet de se reperer. 



. touches du curseur 
i deplacement le fait 



COMMANDES 



Vilitfilion 

Ugna 



Mel une .mage en memoicg 
SupeiDOSO I image appe 



20,00,21,03,20,0; 

140 DATA 05, DD, 96.00, ie,0, 



DO 

DATA 33,0] ,C3,43, 21 , [?, 3ft. 02, 2 
20, 03, 21, 02, 20, 34, 77, FE, 7 
21,02,20, 36,00,3A,O3,20,F 



96,00,10,1 370 DATA 03)20, 36,00,C3,Z4, 20, 00,3 AZ o 



1,00,00,00,00,00,00,00, 
), 00,00,00, 00,00,00, 00, 
:,33,CD,2e,E4,CD,73,21, 



0,3A 

1 430 I 

1,20 



I 22, 3E, 02, 06, 01, OE, 01, 11,0 . 

I 20,FE,30,CA,C4,20,CD,04,2 , 

I 20,DD,21,O2,20,FE,31,20,0 - 

| 01, C3, 43, 21, FE, 32, 20, 09,0 . 

( 

1 DD,34,00,C3,43,Z1,F£,33,2 . 



20, E4,C9,3E, 11,21,30,20,0 
O0,CD,2F,C9,C9,3E,13,21,0 
03,0E,00,CD,2F,C9,C9,3E,0 

20,32,00,20,3a, 03, 20,32,0 
3E,20,21,0B,20,04,O2,0E,O 
20,CD,2F,C9,3A,0A,20,FE,0 
I4,21,AA,20,06,O3,0E,O0,C 
C9, 00, 00, 21, 08, 20, DD, 36,0 
BO, 21, 00,00, 00, 00,00,20,0 
Zl,00,2O,06,0S,0E,O0,CD,2 
D0,?1 ,08, 20, PD, 36,00, 43 lC 
00, 00,00,00,00, 20, 26, 3A,0 
AA, 20, 3A, 01, 20, 32, AS, 20, 3 
DD, 21, 00,20, CO, 40,20,00,0 
13, 21 , AA, 20, 06,O4,OE,O0, C 
C9.DD, 21,00, 20,00,36,00, 3 



20,32 

J DATA AD,20,3A,02,20.32,AC,20 

:o,2i 

D DATA 3A.01.20,32,AB,20,3A,O2 

a DATA 2O,32,AC,20.3A,O3,2O,32 

20, CO 

DATA CD, 21, 3A, 00, 20, 32, AC, 20 

03,20 

DATA 32,aB,20,32,AD,20,3A,02 

20,32 

DATA 32,AD,2O,CD,C0,21,C9,DD 

D DATA DD,36,0O,4D,CD,BB,21,00 

DATA 00,C2,BD,22,CD,06,21,C9 

21,00 

DATA 20, 00,36, 00, 43, CD.Se, 21 

00,00 

DATA 00,00,C2,10,23,CO,73,21 

DATA O0,20,DD,21,02,20,D0,>£ 

C2.04 

DATA 23, 3A, 01, 20, DO, BE, 01, C2 

23, 3E 

D DATA 12,DD,21,FS,22,32,FS,22 

DATA 0Z.2O,O4,03,0E,0O,CD,2F 

CD.3F 

DATA C0,C9,3E,U.DD,21,F3,22 

F3.22 

B DATA ii.M.iz.BB, ii.os, zo, no 

00,49 

DATA CD, B8, 21, 00, 00,00,00, 00 

DD.21 

DATA Ofl, 20, DD, 36, 00,40, CD, H 

FD.21 

DATA 36, 00, 32, CD, BS, 21, FD.21 




32, CD 
















CD, BO 








40 0ATA21.CA 


c? 


?4,r 


D 36 OO 34 


BO, 21 
















29, C3 
































00 DATA27.24 


32 


42,3 


4,32,30,24, 


90 DATA23.32 


78 


24.F 


D.E9, 09,00. 



999 REST0RE3000 
20O0 FORI-fcHlFAOTOLHIF 



DATA67,604,ZB,43,29,3F,31,39, 
0.23.FD 30,33 

10O0 DATA 34,O0,DD,CB,00,46,Ce,CD, 3030 DATA3F , 62 , 79, 33, 60, 69 72 76 6 
B0.23.C9 1.6E.69 

1010 DATAQO.CD. 73,21, DD, 21,00, 1E.I 3040 OAT Ad 1 ,»E.SC.53,?4. A5K70.40, 6 

1020 DATAFD,21,31,20,FD,36,00,00,C 3030 DATA3F, 3F,3F,3F,3F,3F,3F,3F,4 

D, CO, 2.3 3,33,44 

1O30 DATADD,23,14,7A,FE,77,C2,2B,2 3060 I 

4,00,21 F.W.C 
1040 DATA78, IE, 16, OO, 7A. FD, 21 , 31 , 2 



»,30,4»,3F,SF,: 



1040 DATAC2,46,24,DD,21,F0, I 



+ TRS80 
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1930 IFD1 CD- 
KD-DUI 
1940 IFDK41- 
H4)-D(4) 
1950 IFDH41- 
1(6)-D(2> 
1960 IFD119)- 



0THEND1 (5 
-.BTHEND1 13 
<BTHEND1 17 
<0THEND1 (8 
D'.BTHENDl < 



•Oi 1 >-Dl ( 1 >ELS£D1(5> 
*D<4)-D1(4)ELSED1 (31 
■Dt2)-DK6)ELSED1 (7) 
■D(5)-DH9)ELSEDKS) 
B)=D*3)-D1( 11 1ELSED1 (1 



IFDK2) 



■OTHENDll 12>=D(6>- 



DEUSEDK 121 



1990 ! 'RI N 364, D*1D1 (11) ;372,D*<D( 1 ) ) ;3B6,D*(D1 (4) 

;394,D*(D(4> ) ;310B,D*(D1 (5) ) ;31 16, D*(D1 (3) ) i 

2000 PRINT33B4,D*(Di<6> 1 J 3392, D« ( D ! 2 ) ) ;3406,D*(D1 

9) ) ;3414,D*(D(5> > ;342B,D*(D1 (7)1 ;S436, D*(D1 (8) >1 

2010 PRINT3704,D«(D1<1 t ) i ;3712, D* ( D< 3) >;3726,D*(D1 

(2) ) ;a734,D*(D(£>) ) ;374B,D*<0) iS756, D*(0) i 

2020 GOSUB6400 : GO5UB6000 

2030 IFTd )=D1 ( 10)ANDT(2)=D1( I2)THENG=G*3;G0SUF62B 

0EL5EGOSUB63BB 

2040 D2=D1 ( 10) =D1=D1 ( 12) 1GO5UB630B 

2100 REM = =•=== = = ====; TE5T NUMEfiO 12 =-■■■■■■■■■■ 

2110 CLSIPR1NT30, "TEST NUMERO ■»> < 1 2 ) ■ i :GO5UB6600 

2120 PRINT364,D*(D1 <3) >i372,D*IDl (11) S8B6, D» I Dl ( 6 1 

1 i394,D*(Dl (3) ) ;3108,D*<D1 (9) ) ;3116,D*(D1 (3) > ; 

2130 PRINT33B4,D*(D1 (7)1 ; 3392, D*( Dl < 4 ) 1 ;3406,D*<D1 

(9) ) ;3414 , D*<DL ( 71 ) ;342B,D*ID1 ( 4) ) I A* 34), D*< Dl ( IB) ) 

I 

2140 PR1NT3704,D*(D1<2) ) \ 371 2, D*< Dl ( 6) ) l372(b, D« ( Dl 

(5)1 ;3734,D*(D1{1 ) ) [3748, D*(0) 13756, DS(B) I 

2150 GOSUB6400:GOSUB60B0 

2160 IFT( 1 )=D! (B)ANDT!2)=D1 ( 3 ) THENS=G*3:GOSUB6200E 

LSEG0SUB63BB 

2170 D2=D1<8) tDl=Dl (3) :GOSUB6500 

30010 REM 00000 CHAINE5 GRAPHI0UE5 DE CHIFFRES 00 



3010 C*(0)=CHR*( 190)- 

(26)+STRING*(4,24)+Cl 

91 )*CHR*(26)+STRING» 

)*CHR»( 129) 

302B C*( 1 )"STOTNG«<2. 



F,IR 



G»(2, 131 )+CHR«( 189)fCHR* 
1 )+STRING«(2, 12B)*CHR*(t 
«-CHR*< 13B)*STRING»<2, 131 

CHR*( 174)*CMR«(149)*CHR« 



(26)+STRING*(2,24)+CHR*{ 170 )*CHR»< 149) +CHR» (26) +ST 

RING*(2,24)+5TRING*(2, 131 ) 

3B3B C«(2)-CHR«( 142)+CHR»( 131 )*CHR«( 163)*CMR*( 157) 

♦ CHR«(26H-STPING»(4,24)*CMR»< 184 )*-CHR«( 134) +CHR« ( 1 

29)+CHR»(26>*5TRING*<3,24)i'5TRINGS(4, 13t) 

3B4B C*I3)=CHR*( 142>*STR1NG»( 2, 131 )+CHR« ( 1B9 )*CHR« 

(26)+5TRING*<4,24)+CHR«(176>*STRING«(2, 13I)+CHR«(1 

B9>*CHR*{26)*STRING»I4,24)*-CHR*(130)*STRING«(2, 131 

)*CHR»(129) 

305B C»(4)=CHRt(12B)+CHR«( 184 ) *CHR« ( 173 ) +CHRB ( 149) 

+CHR»<26)-STR1NG«(4,24)+CHR«(I42)*CHR*(141 )*CHR*<1 

74)+CHR«(157)+CHR»(26)*STRIN5*<2,24)+CHR«(130)*CHR 

•(129) 

3B6B C*(5) = CHR*( 191 )+STRING»(3, 131 ) *-CHR*(26) +STRIN 

G*(4,24)+CHR*(179)+STRING*(2, 131)»CHR«I 1B91+CHRB12 

6)->-STRlNGS<4,24)*CHRS(130)*5TRING*<2, 131 ) +CHR» ( 129 

3B70 C«<6)=CHR«( 184 >+CHR«( 135 > *CHR»( 26)*BTRING« ( 2, 
24)+CHR«(191 )+STRING»(2,131)+CHR*(lB9)*CHR*(26)*ST 
RING*(4,24>+CHR*< 130) +STR1NGK 2, 131 > +OIR* ( 1 29 ) 
3080 C*(7)-STRING»(2,131)+CHR«I 163)+CHR«< 139) +CHR* 

( 26 ) +STR ING* ( 3, 24 ) +CHR« ( 184 ) *CHR« ( 1 35 ) +CHR» ( 26 ) +ST 

RING«(3,24)+CHR*< 13B)+CHR«<12?> 

309B C«(B)-CHR»(19B>*STRING»(2, 131>*CHR«( 1S91+CHR* 

(26)+STRING*(4,24)+CHR*l 19B) +STRING*( 2, 131>*CHR*( 1 
89)+CHR*(26>'-STRING*<4,24)+CHRS( 130 >*STRING«< 2, 131 

)*CHR«( 129) 

3 IBB C«<9)-CHR»(190)*STRING»<2, 131 )+CHR«! 189>+CHR» 

(26)*STftING*(4,24)+CHR«( 13B)*CHR»{ 131 )+CHR»( 1B7)+C 
HR» ( 1 35 ) +CHR* ( 26 > *STR ING* ( 3, 24 ) + CHR* ( 1 30 ) *CMR» < 1 29 

3118 B*=STRING«(2, 12B )+CHR» ( 1B4 >*CHR»< 135 >*CHR*< 26 

)*STRING*(4,24)+CHR»( 16B)*CMR*< 15B) tCHR* ( 129>+CHR« 

( 26 ) +ST R I N6» ( 3 , 24 > +CHR» (131) 

3115 REM ****«» RESULTAT •*«««* 

3120 CLS:PRINTCHR«(23I iPRINTTAB(5);-R E S U. L T A 

T- 

313B FORI=lTO300tNEXTiCLS 

3140 P0KE175a4,43:P0)\EAD,B:KaUSR( 100) 

3160 IFG>9THENG»=STR*(G) :G1*»RIGKT«(G», I) :G2«=MID« 

(G«,2, 1 ) :G1=VAL(G1») :G2=VAL(G2») :GOTO31B0 

3170 PRINT3723,C*(G) i3729, B»;3735, C»( 2 > 13741, C*(B) 

i :GOTc:i3190 

31B0 PRINT3721,C»<G2)i3727,C«tGl ) 13733, B» i 3739, C»( 

2) ;3745,C«(0) ; 

3190 P0KE175S4,i.4:POhEAD,B:X*U5R( IBB) ! POKE 17584, 13 



5B00 REM 



■ SOUS-PRG DE PRESENTATIOI 



5010 L«(7)=CHR«(171)-fCHR«( 151 >*CHR«! 131 >*CHR*< 18 1 
+CHR«(26)+STRING«(4,24)+CHR«( 170)+CHR*( 149)4-CHR»( 1 
28>*CHR*< 191 )*CHR«<26)*STRING«(4,24)*-STRING*!3, 131 
)*CHR«( 129) 

5020 L»(6)=CHR«(191 )+STRING«(3, 131 ) +CHR«< 26 >+BTRIN 
G*<4,24)+CHR»<191)*STRING*(2, 131 )*CHR« ( 26) +STRING* 
(3,24)*STRING»(4, 131) 
3030 L*(5)-CHRS( 191 )*5TRING*<2, 128) *CHR»( 191 ) +CHR« 
(26)+5TRtNG*(4,24)+CHRS( 139>+CHR*( 180 ) *CHR»< 184 ) *C 
HR»( 135)+CHR»(26)+STRING«(4,24).CHR»( 128)+CHR*( 13B 
)*CHR*(129) 

5B40 U«(4)=CHR«< 171 ) +CHR« ( 131 )*CHR»( 26) +STRING»< 2, 
24)*CHR*( 170)*CHR«( 149 ) +CHR« ( 26 ) +STR1NG* ( 2, 24 ) *STR 
ING*(2, 131) 

3B30 L»(3)»CHR«(191)*CHR«( 180 ) *-CHR» ( 1 28 ) *CHR»( 191 
*CHR»!26)+STRING«(4,24)+CHR*( 191 )+CHR»( 1 3B)+CHR*( : 
73)*CHR*(191 )+CHR«(26>*STRING»(4,24)+CHR*(131 )*STR 
ING* (2, I2B)*CHR*(131 ) 
5060 1_*<2) = CHR*< 191)+STRIN6*(2, 131 )*CHR*< 19D+CHR* 
(26)*STRING*(4,24>«-CHR*( 191 )*STRING*<2, I28)+CHR*C 
91 )*CHR*<26)*SIRING*(4,24)+STRING*(4j 131 1 
5B7B L*( 1)=CHR*( 190 )+STRING*( 2, 131 )*CHR*< 141 1+CHR* 
(26)+STRING*<4,24)»CHR*(17B)*ETRING*{2, 131 )+CHR*<l 
89)*CHR*(26)*STRING*(4,24)+CHR*( 1 30 ) *STRING*( 2, 131 
)+CHR*(129> 

50B0 L*<0)cSTRING«(4, 12B)+CHR* (26) +STRING*< 4, 24 1 +S 
TR1NG*I4, 12B)+CHR*(26)*STRING*(4,24)*STRING»!4, 128 

5B9B L=436=F0Rl=lT07:lFI=4THENL=L-5ELSEL=L-6 

510B FORJ=0TO3B4STEP192:PRIr4r3J,L*<I)i 

51 IB IFJ>192TMENPRINTaj-192,L*(0) 5ELSEPRINT30, L* ( 

)l 

5115 PRINT33B4,L*(B) 5 

512B NEKTj:FORK=3B4TOL:PRINT3(<,L*( I > ;3K-4,l_*<0> J 

5130 NEXTK, I 

5140 REM ■ MUSIQUE PRESENTATION * 

5150 DATA 1972, 32, 2439, 32, 2439, 32, 2447, 32, 2439, 32, 2 

936,16,2208,23, 1972,32,1739,32, 1739,32, 1751,32,173 

9,16,1972,23,1322,32,1731,32,1751,32,1983,32, 1972, 

16,22B8,23, 1522,32, 1972,32,2439,32,2439,32,2439,32 

,2447, 16,2208,23, 1972, 32, B, 1 

5 I 60 RESTORE : FOR 1 = 0TO23 : READD = NEXT 

5170 READN.TUFN' 0THENPOKEAD, T= X=USR( N ) I60T09170 
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LA CITE 
_INTERDITE 

Pour parcourir cette cite , vous devez franchir 8 ta- 
bleaux, pas moins. Pour ceia il vous faudra utiliser 
avec ingeniosite differents moyens de transport pour 
eviter les affreuses bestioles qui ne manqueront pas de 
vous empoisonner la vie. 

SUITE DU N 71 



ORIC1/ATMOS 



Bruno DASSAS 




3230 PLOT X.I-M*:PLOT X.I+1-S*:WA 
IT IOiNEXT 
3250 PLOT X,I,S**SOUNB It 1,0 
3260 GOTO 1000 

3599 REM G06E *.FIN DE TAB. 

3600 FORI-lOTOSOsSOUMDl. [>W*NEXTi 

FORI=50T010STEP-i=SOUN01 - I -W: NEXT 

3405 -SOUND 1 . 1.0:3C=SC+10:PL0T 8. 
2,STR*<SC> :A"0 

3610 N<L>=NIL>-1: IF N(L) >0 THEN R. 
ETURN 

3620 POP:SC=SC*BOiWAIT 60 

3630 MUSIC 1.3.1,W:WAIT 10 

3640 MUSIC 1,3,3.W:WAIT 10 

3650 MUSIC 1,3,5,W:WAIT 10 

3660 MUSIC 1,3,8,W:WAIT 20 

3670 MUSIC 1.3.5,W:WAIT 10 

3680 MUSIC 1,3,3,W:WAIT 40 

3690 SOUND 1.1.0 

3710 B0(L>=B0<L)-500:IF BO(LXMI< 
l_> THEN BOID-MI (L> 

3730 L=L+l:GOSUB 3100 

3740 IF L>LM THEN L=l 

3750 GOTO LI <L> 

7000 REM AFFICHE DOLLARS 

7010 FOR 1=1 TO N(L>*4 STEP 4 

7020 X0=VAL<MID»(D0*. 1.2) ) ! YO-VAL 
(MID* (DO*. 1+2. 2) >: PLOT XO,YO.D*:NE 
XT 

7030 RETURN 

SOOO REM == SC. DEBUT TAB — 

800Z INK3:B0«B0(L) 

8005 PL0T15,0.CHR»<2)»"RUINE"+STR 
«(L>:PLOT 21,0.12 

8010 PLOT 1.2,CHR*(7>+"SC0RE:"*ST 
R*(SC) 

8020 PLOT 25.2>CHR*<7>+"B0NUS:"+S 
TR* ( 80 ( L > ) 

8023 PLOT 2.0,"a:"+STR«<V>:XD=X:Y 
D=Y 

8030 T=0:PE=0:B1=B0:A=0:RETURN 

8100 REM == EFF — = 

8110 FOR 1=4 TO 26:PL0T 2,I.E»:S0 
UND l.IfS.UiNEXT 

8113 PLOT 13.3. " " 

8120 SOUND 1.1. Oi RETURN 

9000 REM -= MONSTRES == 

9010 FOR J-l TO HiH-INT<RND< 1 >*2> 
: IF H-O THEN H— 1 



9025 PE=PEEK<#208) 

9030 PLOT X(J> . Y(J) .B*(J) I NEXT) RE 
TURN 

10000 RETURN 

10100 RETURN 

10200 T=1=U=T: RETURN 

10300 RETURN 

10400 F0RI"1T03: SOUND 1,50,W=WAIT 
20: SOUND 1.1.0: NEXT 

10410 PLOT X,Y,M*:X=XD:Y=YD:RETUR 

10500 RETURN 

10600 RETURN 

10700 RETURN 

10800 FOR I=»50 TO 250 STEP 10: SOU 
ND 1, I. W: NEXT: SOUND 1,1,0 

10810 FOR I=Y TO Y-2 STEP-l:PL0T 
X, 1,S»:WA1T15!PLU1 X. l.M*:NEXl 

10820 PLOT X. Y-2.M»i Y-Y-4: S-SCRN < 
X,Y):PLOT X,Y,B»:IF S>32 THEN POP: 
GOTO lOOO 

10830 RETURN 

1O9O0 RETURN 

110O0 FOR I-450T0 200 STEP-10:S0U 
ND 1 . I -W: NEXT: 'SOUND 1,1,0 

11O10 PLOT X,Y,M»:S=SCRN(X,Y+4) 

11020 FOR I=Y+2 TO Y+4:PL0T X.I.S 
«:WAIT 15:PL0T X, I , M»:NEXT: Y-Y+4 

11023 PLOT X,Y.B«:IF S>32 THEN PO 
P:GOTO 1000 

11030 RETURN 

11800 T=-l:U=T: RETURN 

11900 PLOT X.Y.M*:SOUND 1.50.W:PL 
OT X-1.Y.S»:WAIT 20 

11910 PLOT X-l.Y,M»tY=Y+l:X=X-2lS 
OUND 1,1.0: RETURN 

12000 PLOT X,Y,M»=SOUND 1,80, Hi Pt 
OT X+l, Y.S*:WAIT 20 

12010 PLOT X+l, Y,M«: Y=Y-t-l = X*X+2:S 
OUND 1,1,0: RETURN 

15000 DATA 12.12,0,29,46,12.10.17 

15010 DATA 12;45,33i&3il2;12;18i3 
3 
15020 DATA 12,12.0,46,29.12.20,34 

15030 DATA 63.63,4,10.17.32.63.63 



15040 DATA 63.63.49.32.32,49,63,6 

15050 DATA 63. 63, 24, 24, 24 , 24. 63, 6 
3 

15060 DATA 63.12.18.33,33,18.12,6 

15070 DATA 63.51.61,61,47.47,51,6 
3 

15080 DATA 63,63,0.63.0.63,0.63 

15090 DATA 63,0.63,0,63.0,63,0 

15100 DATA 63,63,0,63,63.63.62.20 



15130 DATA 33,13.0.33.18.0,33.18 

15140 DATA 0.17,43.5.15,23,34,0 
15150 DATA 0,34,53.40,60,58,17,0 
15160 DATA 62,34.7,13,29.63.63,25 

15170 DATA 31,17,56,44,46.63.63.3 
8 

13180 DATA 12,30.63.45.43.63,63,4 

15190 DATA 0,3,42.54,54,34.54,28 
15200 DATA 30,12.0.63,45,12,13.51 
15210 DATA 63.63,24.24.24,24,63.6 

3 
15220 DATA 0.1.3,6,12.24,43,63 
15230 DATA 0,32,48,24,12.6,3.63 
15240 DATA 3,8,8,8,42,20,3,0 

19995 REM 

20000 REM >. EXPLICATIONS ! 

20005 REM 

20010 CLS: PRINT: PRINT: PRINT: PRINT 

: PRINT 
20020 PRINT"IL Y A DEJA QUELQUES 

ANNEES DE CELA, " 
20030 PRINTiPRINT"UN GIGANTESQUE 

TREMBLEMENT DE TERRE" 
20040 PRINT:PRINT"AVAIT ANEANTI L 

ES HABITANTS D'UNE" 
20050 PRINT«PRINT"CITEE IGNOREE D 

E TOUTES LES CARTES." 
20060 PRINT:PRINT"OR UN JOUR, LOR 

S DE VGTRE VISITE CHEZ" 
20070 PRINT1PRINT-UN VIEIL ANTIOU 

AIRE. VOUS FAITES" 



20075 PRINT:PRINT"L'ACQUI3ITI0N D 
*UN MORCEAU DE" 

20030 PRINT:PRINT"PARCHEMIN JAUNI 

QUI SEMBLE INDIOUER" 

20090 PRINT:PRINT"L*EMPLACEMENT D 
E CETTE ETRANGE CI TEE." 

20095 GOSUB 3000: CLS: PRINT: PRINT: 
PRINT:PRINT 

20100 PRINT:PRINT"ESPERANT VOUS S 
AISIR DES TRESORS" 

20110 PRINT:PRINT"ABANDONNES. VOU 
S PARTEZ A LEUR" 

20120 PRINT!PRINT"RECHERCHE." 

20130 PRINT:PRINT"AU COURS DE VOT 
RE PERIPLE. VOUS" 

20140 PRINT:PRINT"RENCONTREREZ CE 
RTAINS MONSTRES" 

20150 PRINT: PR I NT "MUTANTS: op qr 

20160 PRINT:PRINT "QUI HANTENT EN 
CORE LES LIEUX." 

20162 PRINT:PRINT"VOUS DEVEZ TERM 
INER CHAQUE TABLEAU" 

20164 PRINT:PRINT"AVANT QUE LE BO 
NUS N'ATTEIGNE . " 

20165 GOSUB 3000:CLS:PRINT=PRINT: 
PRINT:PRINT:PRINT 

20170 PRINT"POUR COLLECTER LES TR 
ESORS: * , " 

20180 PRINT:PRINT"VOUS VOUS DEPLA 
CEREZ EN UTILISANT!" 

20190 PRINT:PRINT"LES RESS0RTS:1 
" DE 4 CASES." 

20200 PRINT:PRINT"LE3 TRAPPES : r, 
y DE 4 CASES." 

20210 PRINT:PRINT"LES TAPIS ROULA 
NTS: vvvvvvvff QUI" 

20220 PRINT:PRINT"VOUS EMPORTENT 
A DROITE OU A GAUCHE." 

20230 PRINTtPRINT"LES RENTES : ■ 
ET ui , POUR DESCENDRE" 

20240 PRINT:PRINT"D'UNE CASE." 

20250 PR1NT:PRINT"ENFIN,EVITEZ DE 

MARCHER SUR LES h QUI" 

20260 PRINT:PRINT"VOUS RAMENENT A 
U POINT DE DEPART." 

20270 GOSUB 3000: GOTO -1 1 15 



METEORES 



Bourn, bourn, scratch, piouv. Voila, ce qui vous attend 
si vous donnez ce programme en pature a votre Ams- 
trad. Pour survivre, vous devrez echapper a une pluie 
de meteorites particulierement dangeureuses. 



AMSTRAD 



Yves BRAN EYRE 



1 cus 

10 'XXXXX*XXXX 

20 'X * * METEORES 

30 'XXXXXXXXXXXX 

40 SYMBOL 254,24,24,90,90,126.219, 

219,129 

50 SYMBOL 255,92,162,129,97,33,193 

, 130,126 

60 INK 8, PINK 1,26'INK 2,25'INK 3 



90 vx - 1? 

100 VA1S ^=5 

110 DIR=1 

120 WINDOW #1,2,39,24,24 

138 WINDOW #0,2,39,2,22 

140 ENV 1,1, 15, 1,9,-1,1 

150 ENT 1,10, 10,1 

160 ENV 2,15,-1,10 

170 ENT 2- 150,10. 1 

180 ENV 3. 14,-1.20 

199 ENT 3,200,4,2 

200 PLOT 12,12,2'DRRWR 0,22: DRHWR 
614,0, DRAWR 0,-22^ [jRflWR -614,0 

210 PLOT 12,44:DRRWR 0,342, DRHWR 

614,0'DRAWR 9,-342: DRflldR -614,0 

220 IF Pt=8 THEN GOTO 990 

230 CLSCLS #1' LOCATE vx,20'PEN 2 

i PRINT CHRS(254) 

240 LOCATE #1.1.1 PRINT #1,"SC0R 

E = "; score .;TfiBd 5 >; "HI SCORE >")hi» 

core i TRB< 33 ) ; CHR*< <;54 > ■ CHRS'. 254 } , L 

HR*( 254 >; CHR«< 254 1 ; CHR* 254 ) 

259 ■ *X*XXX*X*XX*XXXX* 

260 'retowr 



270 hz=INT<RND*2) 

280 IF hz-0 RNO tot<20 THEN tot=to 

t+1 : mx*INT< RNDX3? )+2 : tC tot, 1 >*rnx > t 

<tot,2>=2 ELSE 300 

290 PEN I' LOCATE MX, Z- PRINT CHR«( 

255) 

300 ' XXX 

310 FOR 4-1 TO tot 

320 e*Plose = IHT<RHt>*10) 

330 IF exPlose=0 THEN 340 ELSE 450 

340 ' si met«or« -xPlose XXXXXXXX 

XXX 

350 GOSUB 930 

360 FOR n = 1 TO 3 

370 drawx= I NK RNDX600 >* 18 ■ eK n >=dr« 

380 PLOT <U<1,1 >+nX16-8,392-Ctcq, 

2>X16),3:0RflW dr*ux,70: 

398 IF INT<dr*y>-^16)*vx THEN 760 

400 NEXT r, 

410 FOR s=l TO 3-PLOT <. t: q , 1 Him 

6-8, 392-< t( q , 2 >X 1 6 ) . 3 ■ ORHw d( S ) , 78 

,0:NEXT s 

420 LOCATE U4, 1 >,t< <* .2 >' PRINT " " 

430 r = 4 :GOTO 690 ' 

449 GOTO 488 

450 ' si meteore n'exPtoie Pas XXX 
XXX 

460 t<4,2) = «4,2H1 

470 IF t(l,2;>=21 THEN r=i scores 

core-50 ^ LOCftTE #1,8, SPRINT #1," 

"LOCATE #1.8, SPRINT #1, score 
LOCATE t< 4. 1 ?,t(q,2)-l ipRINT " " ■■ 
GOTO 690 ELSE LOCATE t< q, 1 >, <r( q , 2) 
-1 PRINT " ":PEN l: LOCATE t(q,lj,t 
(4*2)'PRIHT CHRV255) 




490 IF INKEYC1;=0 THEN GOSUB 616 
580 IF INKEY^8>-0 THEN GOSUB 650 
510 IF INKEY<9)-0 THEN 520 ELSE 59 
8 

520 GOSUB 900 

538 PLOT <vx+l )X16-4,80:DRAW (vx+1 
?*16-4,380,3:PLOT ( vx+1 >*16-14,80: 
DRAN Cvx+l';X16-14,380.3: scort =sc 
or»-l:LOCATE #1,8, 1 'PRINT #1," 
'^LOCATE #1,8,1PRINT #1, score 

540 PLOT Wx+l>XI6-4.80:DRRW (.vx+I 

J*16-4. 380,0: plot <vx+l >XI6-14,80 

:DRflU <vx+l)X16-14, 380,8 

558 FOR n-1 TO tot 

566 IF t(n, 1 >- vx THEN r = TiiLOCAT 

E t<n, 1 >,t<n,2>:PRINT " " i »core-sc 

ore+11 'LOCATE #1,8, SPRINT #1," 

"^LOCATE #1,8,1 'PRINT #1, score 
'GOTO 690 
570 NEXT n 

586 PEN 2:L0CRTE vx, 20: PRINT CHR%(. 
254) 

590 NEXT 4 
600 GOTO 260 

610 ' s^p dePUce a droit? 
628 vx«vx +1 :IF vx = 39 THEN vx=3 
3 RETURN 

630 PEN 2 LOCATE vx-1, 20 PRINT " " 
; CHR*< 254 > 
648 RETURN 
650 ' S-'P dep 1 ace a 9«uche 

! = THEN v>:=l ■ 



670 PEN 2:L0CHTE vx,2B'PRINT CHRtt 

254);" " 

680 RETURN 

690 ' S-'P tlimine du tableau 

700 GOSUB 950 

710 FOR fner TO tot 

728 tCw.l >-tCm+l,l )'t(w,2)=t<w+l,2 

) 

730 NEXT M 

740 tot-tot-l 

750 GOTO 260 

766 ' S^P vaisseau tow.che 

770 cou.Kl)»"0' co'j.K2;-13' couK3> 
»15> couK4)»25 
790 GOSUB 970 
790 FOR ti- 1 TO 50 
800 FOR m-1 TO 4: coM.l<m)=couKm 
l> IF couKm>=26 THEN cOUHf1>=4' N 
EXT w 

810 INK 0, could >> INK 1, couU2> 
: INK 2, COUK3>> INK 3, coul<4) 
820 FOR m=l TO 50 'NEXT m 
830 NEXT -n 

848 INK 0,1= INK 1,26:INK 2,25 INK 
3,6 

850 IF SCORE > HISCORE THEN HISCOR 
E=SCORE 

860 v#is=vais-l 'LOCATE #l,33+vait 
,1 'PRINT #1," " 
B70 IF V*l»-fl THEN PRINT #1, "SCORE 
'";SCORE; THBC 20); "HISCORE -";HIS 
CORE ELSE CLS LOCATE vx.20PRINT 
CHR*(254)'Pt =1'G0T0 260 
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PLANETE BLEUE 



APPLE 



A la suite d'une erreur de navigation spatiale, vous 
vous retrouvez prisonnier dans una etrange planete 
bleue oil les verres, les bouteilles, les grilles et les cles 
vous procurent du carburant. Vous devez vous depe- 
cher de tout prendre avant la panne seche. 

(NDTA; Ne protigez pas les programmes que vous nous envoyez: 
pour les tester on peine !} 

STEPHANE CHEVRY 

Mode d em pity 

Si vous possedez un assembleur (NDTA: ne pas confondre avec 

monileur, les mecs !), tapez les listings 1, 2 et 3. Puis assemble; -les 



LISTING 1 | 


S 1 PLANETE BLEUE ; 


* ! PAR 


STEPHANE CHEURY . 


9 | DECEM8RE 1984 1 


11 | POUR APPLE 11- 48H t 

12 1 1 


M i 
IS 


DUG 


SM| 


17 HODUL. 


EM 
EOU 


::«: 


20 |ZPA0E5l 




21 MLLE 


EM 


•c 


22 CH 


EN 


•24 


is cu 


ep; 


• » 


14 BflSl. 


epi 






epi 


• 19 


24 MPAO 


EK 




27 TABXB 


EM 




2B TA8YB 


EM 


80S 


29 TA8DB 


in 


(M 


30 CAR 


EM 


tn 




EM 


•FS 


22 AO 


EP! 


SK 


23 AOH 


m 


•FD 








33 [UARIASLES 




34 RA 


ECU 


•003 


37 RX 


tw 


•804 


M ITT 


EOU 


»em 


3* L 


EOU 


• 804 


40 M 




tBQ? 




EOU 


taos 


n *p 


EOU 


.80? 


49 Iff 


EQ'J 






EOU 


MM 


43 TH 


emj teoc 


44 IB 


EOU »B0D 


47 TO 


eou *eoE 


48 IG 


EOU 






EOU 4810 


3D YY 




• 811 


91 XI 


EOU 48)2 


32 TB 


EOU 1813 


33 DB 


EOU 


MI4 








33 MUUX 


EOU tBia 


3* SAUN1U EOU *BI7 


37 SCMH 


EOU 


•BIS 


38 SCORL 


EOU OBI* 


St 1ND 


f Oil 4810 


40 1ND2 


EOU 


Mia 


41 1ND3 


EOU 


Mil 


42 RESERU EOU 


»BLD 




too 


• HE 


4* TEMP 


EOU 


• BIF 


43 | 






44 |l/0i 






47 CL 


EN 




48 CLST 


EOU 


4CD10 


49 HP 


EOU 


• CO 30 


70 | 






71 |S-P ROMi 




72 H0R2 


EOU 


IF 308 


73 FOND 


EOU 


1F3F4 


74 PLOT 


EOU 4F800 


73 COLOR 


EOU 8F844 


74 SCRN 


EOU 


»FS?1 


77 TEXT 


EOU 


«FB3? 


78 MSC 


EOU 4FBC1 


7* HONE 


EOU 4FC38 


80 WAIT 


EOU 


9FCAB 


81 COUT 


EOU 


• FOFO 


82 | 






83 DFBOEB JSR MODULI 


84 


J SB 


FA [JEU 


85 


LM 


M 


B* 


STA 


SCML 




STA 




M 


LM 




69 


STA 


5C0RH 


« 


LM 




tl 


STA 


RE SEFW 


*2 


LM 


EtCC 


n 


STA 


UIT 




LM 


IB 


M 


STA 




94 DEB' 


JSR 


AFFSCO 




JM 


PLACE 


n 


LDO 


H 


vt 


STA 


I NO 


100 


LM 


(3 


101 0E01 


LM TAB!,X 


102 


STA TA8XB,X 


103 


DEX 




184 


EPL 


DEB1 


105 


LM 


13 


10* 


STA XP 


107 






iss 


STA 




109 | 






110 JEU 


LM 


NIU 





J5R DEPBOU 


17 JEUI 


LSR SAUNIV 


IS 


BCC JEU2 




LM E2 


20 


JSR OEPBOu 


21 JEU2 


JSR B0UGE 


21 


JSR AFFSCO 



LDA SCORL 243 



STA SCORL 
LDA SCORH 
SBC tO 
STA SCORH 



LDA SCORH 273 
SHE JEU 274 E 

JMP S0NTUU 277 



24! OEPI LOT XB 



et sauvegardez-les sous 3 fichiers (PL. TT et SC). Chargez-ies tous 

les trois et sauvegardez le programme entier en tapant BSAVE 

PLANETE BLEUE, A$ 900, L$ E00. 

Dans le cas contraire, tapez le listing 4 de la 'aeon suivante: CALL 

-151 < RETURN >, puis: 

900: 20 00 13 20 48 0E A9 00 < RETURN > 

908: 8D 19 08 80 1F etc... 

Ouand vous avez fini, tapez BSAVE PLANETE BLEUE. A$ 900, L$ 

EOO 

NDTA: Bientdt dans hebdogiciel un programme qui vous permettra 

de ve'rilier que vous avez bien entr6 vos codes, ce qui reduira les 

arrears de frappe\ 

NDLJC; Qu'ewt-ce qu'll est bavard cette semaine le testeur 

Apple! 

3S8 STA OS 317 STA AO 443 DEFf LOX XX 



391 DEP4 LOT XB 




JMP AFFB 
JSR REBOND 
LOT XX 
LDA TB 
JSR SCAN 
BNE OEPI 1 
LOX XX 
STX XB 
LOY TS 
LM £4 



JhP AFFB 
JSR RE BOND 
LOT XB 



140 UERF CMP (3 



147 UERF' PLA 



170 UERF1 CMP t 



284 




413 


STA OB 








JHP AFFB 


2BB 


LM YY 


417 DEP4- 


LOT XB 




JSR SCAN 




LM YY 




BNE 0EP1R 




JSR SCW 


1*1 




428 


BNE 0EP4R 


292 




421 


LOX XB 


2*3 


STY YB 


422 


LOY YY 


2*4 


LM (2 


423 


STY YB 


209 




424 


LOA || 


294 




423 


STA OB 


297 OEPII 


INC XB 






298 




427 DEP4R 


INC XB 


Iff 




42B 


LOX XB 








OEC YB 




LDA 13 


430 






STA 08 






MS 


JMP AFF8 




STA OB 



CMP IB 

MB TZ 

CMP TO 



12B JEU3 LSR S 



173 UERF2 


CMP 


(7 


304 | 






433 




JMP AFFB 


341 


RTS 


174 


SME 


UEBF3 




LOT 


• B 


434 






9*1 | 






LOX 




304 






439 




LOX [140 


343 T> 


LDY XP 




DEX 




307 


8TT 






BOWL 


TXA 




INY 


179 


BNE UERF2' 


308 


LDX 


YB 






JSR IMIT 


543 


LDA YP 


1M 


STX 


INO 


309 


DEX 




4M 




BIT HP 


544 


JSR SCRN 


181 


JMP 


SONPOS 


31D 


STX 








OEX 


347 


BEO T)l 


IS! UERF! 


PLA 










440 




BH£ SOMPLI 








PLA 




313 


JM 


scm 






LM (0 








JMP DEPT 


313 


BNE 




442 




JMP UA1T 


370 


STA IND2 


18! UERF3 


DIP 


£»D 


314 


LOX XX 


443 






S71 T)l 


LDA 12 


18* 


BNE UERF4 


313 


STX XI 




PLACE 


LM '.tO 


37! 


STA DIR 


117 


LM 




31* 


LOY YY 


415 




STA RA 


971 


JMP DEP? 


IBB 


CMP 






STY 


TB 


444 




LDA (111 






1M 


BNE UERF3' 


31 B 


JMP AFFB 






STA RX 




LDY YP 




JMP 


SONETL 


319 0EP2' 


JSR 


PEBOND 


44B 




LM f*E 




DEY 


171 UERF3 


JMP 


SONTUE 


320 


UK 


XX 






STA RY 


377 


TYA 


192 UERF 4 


CMP 


C«A 


321 




YB 


450 




JM AFFP 


378 


LDY XP 


193 


BNE UERF3 


322 


JSR 


SCRN 








379 


JSR SCRN 


194 


LDA 


IND 




ME 




432 




LOY (0 


380 


BEO TAI 




CMP 


» 




LM 




433 




STY FT 


581 


JSR UERF 




BNE UFRF4' 






XB 


• 34 


PLACES 


LDY PT 


382 


LOA tO 




LDA 




32* 


LOT 


YB 


43! 




LM OB JETS,' 


383 


STA 1N02 






327 


LM 




434 


PLACE 


BED PLACE F 


384 TAI 


LDA tl 






s(nr\n 


KB 


VTA 


M 


437 




PVK 






200 VEBF4 


JMP BONTUE 


329 






438 




AND fXOOll 11 


387 | 

388 TZ 




201 UERFS 


PLA 




331 


LOT 
LM 


XB 


439 

440 




STA RX 
PLA 


LOY YP 




JHP 


DEP^ 


332 


JM 




44I 




LM 


390 




204 | 
203 UA1TE 
204 

207 | 






333 


BNE 


OEMS 


442 




LM 




LM 

JMP 


VI T 


334 


u» 


XI 
YB 


443 
444 

4*9 




LM 
LM 
LM 


391 
392 


JSR SCRN 
BEO TZI 


LDA 


EBALLE 


337 


LDA 




4** 




LM 


394 
393 


JSR UERF 
LDA tO 








3M 


STA 


D6 


447 




STA HB 








339 


JMP 


AFFB 


4*8 




Mr 






2 ! 1 REBOND 1 Fix 




340 0EP2R 


DEC 


XB 


4*» 




LOA OB JET 5, Y 


397 TZ! 


LOA (3 


212 REBON 


LDA 

JM 




S41 


:.0- 




47D 




PHA 






UA1T 


342 


;nc 


YB 


471 




AND t? 


9ft 


BNE DEP" 1 


214 
219 






343 


LOT 


YB 


472 




STA RA 










144 


LDA 








PLA 






214 






343 


STA 


OB 






LSR 












344 


JMP AFFB 


479 




LM 




LM YP 








347 | 






47* 




LM 


too 


JSR SCRN 


219 OEPBO 






348 0EP3 


LOY 


XB 






STA RY 


MS 


BEO TO 


220 






349 


1NY 




47B 




STY PT 


to* 


JSR UERF 










STY 


XX 




PLACE 


JSR AFFP 


407 










331 


LDX 


YB 


i CD 




INC RX 


408 




233 






332 


1NX 




481 




LOY PT 


409 T41 


LDA i * 


224 


LM 




3)3 


STX 




492 










225 






394 


TXA 




4B3 




LM OB JETS, y 






224 


LOA TA8DB, 


355 


J5B 


SCRN 


4B4 
















BNE 


DEP3' 


4B5 




ETA M 






228 






3S7 


LOX 




BM 




OEC NB 




BEO DEPA 


229 


LOX SALUX 


338 


m 


XB 


487 




BNE PLACE 3 










Ml 

!fli»<n, 


18* 


LOY 


YY 


M 




JM SONPLC 






231 


STA 


MS 


STY 








BEO PLACE 2 


*I7 


DEY 

BEO DEP2 


232 






341 




4*8 








233 


STA TAHYB. 


342 0EP3' 


JM 


ttaoM 


4*1 


Imp 


ST> RX 












3*3 


LOY 


XX 


4*2 




STY RY 






235 


STA TABDB, 


3*4 


LM 


YB 


4*3 




STA KA 


421 0EP<' 


STX XX 


334 






JM 


SCRN 






LM 10 














ENE 


DEF3' 


4?3 




JSR COLOR 






338 


M 




M7 


LD. 


XX 


4»4 




LDY RX 


424 


JMP DEP 


23* 






3*8 




*i: 






LOA RY 


423 DEPA 




240 






34* 


LOY 


YB 






JSR PLOT 


424 




241 


BNE 


DEPBI 


370 


.DA 


(2 








427 DEPA" 


STY YY 




JM 




371 


STA 


M 


500 






428 




243 DEPBI 






372 


JMP AFFB 


301 


«m 














373 0EP3- 


LDY 


XB 


302 




STY BY 


430 












LDA 




303 AFFP- 


STA RA 


431 DEPZ 


LDY YP 








375 


.ISO 


SCRN 


304 






432 


INT 








37* 


M 


DEM* 


505 






433 


JMP DEPA 








3?^ 


LOX 


XB 


504 




LOA RA 


434 DEP> 


LDX XP 








376 






51? 




JSR COLOR 


433 


I NX 




OCX 




37* 


STY 


YB 


MB 






434 








3M 


LD* 




■X" 




LOA RY 


437 DEP 


BIT 1N02 


252 






Ml 


STA 


DB 


910 




JSR PLOT 


438 


BEO DEP* 


293 






382 






911 






43* 










383 DEP3R 


DEC 


XB 


912 




LDA RY 




LOA YY 


355 






384 


LAX 




SI 3 




JSR BASC 


*41 


JSR SCRN 








3B5 


DEC -B 


914 




LOA RX 


44! 


CMP (0 








38* 


LDY Y» 






CLC 


*41 


BEO 0EP» 


298 


J» 


DEP3 


3S7 


LM 


« 


91* 




ADC BASL 


444 


RTS 



JSR A FIT 

OEC RX 

BPL FAIJE2 



492 FAIJF1 LDY YY 

4*3 LM T1TRE.Y 

494 BED FA1JF2 



701 APFT PM 



AOC fCMARSI 
STA CAR 

LM /CHARS] 



AOC CH 
LM BASH 



INC AOH 
INC AOH 
INC AOH 

INC AOH 



BNE AFFT2 

LOA £»'■ 
JSR COLOR 

LDA CU 



743 SOMF IN LOA f 



JSR SON 
JSR SON 
LDA f*80 



743 SONTUE LOA E*40 

744 STA L 



JSR SON 
OEC RESERU 
BNE SONTU- 

U JSR SONFIN 
JSR AFFSCO 
JSR M0DUL2 
JMP DEBOES'3 

' JSR FA1JEE 
JMP DEB' 



A suivre : 

En raison de la longueur 
inhabituelle du listing, 
nous passerons ce pro- 
gramme en deux tois. 





tu 




LDY YP 




ft31 




LOA (9 




634 




JM AFFl ' 




435 




LDX XX 




454 






STA CAR 






LOY YY 




438 








*9f 




JMP UERP 




440 










WIJEI 


JSR TEXT 








JSR H8R2 * 




443 




LM if :.• 




664 




STA «1C ' 




4*9 




JSR FOND 


LDA (CAR), 


4*4 


WJE) 


LM tO x 


ORA fl80 


4*7 




START 


STA <AD,I) 


64B 




JSR HOME 




669 


■A I J* 


LOY RY 


INC ADH 


*78 




LM TABI ,Y 


INC ADH 


*7I 




CMP MFF 


INC AOH 


472 




BEO FAIJEF 



( 0002230490D24D04000203D1 
01 
HEX 38030304030120039301 
I303FB2B0303FB2B 

> HEX 0503F828050504F618C: 

2DO0C3002DOd 

I HEX 2DDOB3I02530130DS34043 

3002DI03DIOODOO 

HEX 304B4S009D000010430D3D 
(3008080 1 OD08DOD 

HEX IDOOI3I01D288000IC 
D00B9I0I3004D00 

HEX ID00131D3310I3381030DOOO 
I0FD231OFF 
702 i 

7B3 CHARS1 HEX 8080808000808080 
HEX FFBF9F8FBF8783BI 
HEX COEOF0FBF8FCFEFF 
HEX FFFEFCFBFBFOEOCO 
HEX BI83B78F8fPFBFFf 
HEX FFFFFFFFFFFFFFFF 



89* FINS LDA UIT 



791 HEX OO0FIF3E7T3E1F0F 

792 HEX 004B7F7F7F3EICOB 
7*3 HEX 007B7C3E7F3E7C7B 
794 HEX 0000021 43E7E7E7E 

793 HEX 0008D2037D232200 

794 HEX OB0B1C3E3E3E3E3E 
7*7 HEX 4924124*24124924 
7*8 HEX 7F43437F7F43437F 
79* HEX 0D0ODOO0O0D00O00 
MO HEX 41414I4I3E08083E 
801 HEX 0O0O2O343E3F3F3F 
M2 HEX 000<IIC3E343EICOO 
M3 HEX 007743330 8334 37 7 
M* HEX 0OOOO0OOOOICIC1C 
MS HEX DO0O0OO0O00O0OO0 
M4 | 

807 CHARS3 HEX D03C44747E4E443C i 

808 HEX D01B1C1B1BIS183C ; 

809 HEX 003C444D380C047E t 
S10 HEX 007E403D3B40443C 

811 HEX 0030383C347E3O30 

812 HEX 007E043E4040443C 
IIS HBt BB7MV*K*J4*K 
B14 HEX 007E40M1MCOCOC 

813 HEX 003C44443C44443C 

814 HEX OD3C44447C40301E 

817 HEX 000043474F787343 

818 HEX 00 0434 34377 3E1C 
81* HEX 7F4444447E04040F 

820 HEX 1C1919191B18183C 

821 HEX 0000081 E303E333E 
B22 HEX 0000001834343434 

823 HEX 03040C1E33IF031E 

824 HEX 0404IF040404341C 
■29 HEX 0000001E331FD31E 
■2* HEX 7F44447E4444447F 
•27 HEX ICI*I*18I9I*I*3C 
B28 HEX 0000001B181BIB34 

829 | 

830 08JETB HEX 4*3348 33 30 3S3 233 

831 HEX 37333939833707 

832 HEX 9F9F07A0970742S4 

833 HEX 413E4294C4940A0B 

834 HEX DWCOA0B0O 



LM t«E 

JSR AFFP' 
INC RX 



837 TAB3 HEX 



21220909092324 997 



LM tllA 

JSR AFFP' 
INC RX 
LM (•!■: 
JSR AFFP' 
INC RX 
LM t4 



INC RX 

INC RX 
LM RESERU 
ORA t»10 
JSR AFFP' 
INC RX 
LM II 
JSR AFFP' 
INC RX 
INC RM 
INC RX 
LDA SCORH 
JSR AFFSC 
LM SCORL 



938 AFFSC PHA 



JSR SCOB 
LM £ 



1 STA TB9P 

2 JMP SEND 

3 SONPOS LDA 140 

I JSR SCM 

9 JMP SONM 

! SOND1A LOA E«2D 
7 JSR BCOR 

B JMP BOND 

9 S0NP10 LM f«40 

JSR SCOR 

1 JSR SONM 

2 JMP SONM 
i S0NET1, LM £«10 

4 JSR SCOR 

J JSR AFFSCO 



JSR SONM 
LDA £20 
STA RA 
LDX £*B0 




979 SPTEMP LM f 



982 SPTB* RTS 

*B3 | 

*B4 UERP LM N 



CMP 13 
BEO UERPF 
LOY ID 
JSR UERP- 



LM YP 
CMP TABYB,- 
8NE UERPF 
JMP SONTUE 



862 F1N2 TXA 



1000 UERPF RTS 



A SUIVRE... 



ATOME HIC! 



les atomes "Hie" ne se taissent pas approcher facile- 
ment, il vous faudra pourtant les detruire avec votre 
laser Jeu passionnant. 

Daniel AUDIFFREN 



7/99 BASIC ETENDU 



GNE<20 OR COLGNN 



GNE-20 THEN GOSU 



5 'ATOHE...HIC POUR TI/99IBE) STEP 2 :i CALL VCHAR 

7 'DE AUDIFFREN DANIEL-'. " NEXT I 

10 CALL CLEAR 1000 CALL HCHAR(LIGI 

20 DISFLAY AT16.5) : "ATOME... HIC" 1010 CALL KEY(0,K,S) 

?'> DIB--L..5Y AT(15. 1) :"NOMBft£ D' AT0r1ES(4/5 1020 IF K=8B THEN 1090 

/&)■■ " 1030* IF K-69 THEM 1100 

110 ACCEPT AT(15.Z4)VALIDATE<"456")SIZE< 1040 IF K=6B THEN 1190 

1>BEEP:NAT ii CALL CLEAR 1030 IF K-B3 THEN 1240 

ISO DISPLAY AT(12.51:"UN MOMENT. . .SVP" 1060 IF K-32 THEN 3000 

140 DIM B<9,9),&1(BS>,F1(8S),F2(B5>,F4<2 1070 IF K=B2 THEN 3000 

8) ,D2(28) ,C(9,9) 1080 GOTO 101O 

150 DATA 440,5,494, 1,440,4.370. 1,587. 1,3 1090 IF CDL0NNE-5 AND L 

54,4,494. 1,554, 1.SB7, 4, 554, 1,494, 1,440,5 E-21 AND LIGNE<20 THEN I 

,494,1,440,4,370,1 NE-LIGNE*2 II GOTO 1000 

160 DATA 567,1,354.4,494,1,554,1,587,6,5 1100 IF COLONNE-5 AND L 

B7, 4,534. 1 .494, 1,440,4,390, 1 , 370, 1,330,4 B 1300 1 i LIBNE-21 i : C0L0NNE-6 

, 370, 1 , 392, 1 , 370, 3 1000 

170 DATA 370. 3,5B7, 4, 534, 1,494. 1,440,4,3 1120 IF CQLONNE=21 

92,1,370, 1,330, 4, 370, 1,330, 1,440,5,330,1 UB 1300 :: LIGNE=2 

,349,4,330,1,294,1 1000 

180 DATA 413,4,413,1,440.1,494,4,534,1,4 U 30 GOTO 1010 

94,1.440,6.659,4,354,1,440,1,349,4.330,1 U40 IF C0LONNE=5 AND L 

,294,1.494,4,554,1 -21 AND LIGNE>6 THEN BO: 

190 DATA 494,1,440,6,440,3,494.1,440,4,3 =LIENE-2 :: GOTO 1000 

70,1,587,1,554,4,494,1,554,1,387,3,387,3 i 130 IF COLONNE-5 AND L! 
200 DATA 587,4.534,1,494,1,440,4,370,1,2 130O :i LIBNE=5 :: COLGNNE-6 

94,1,277,1,494. 1,440, 1,392, 1.370, 1,330, 1 q 

.294,8 1170 IF COLONNE-2 

210 RESTORE 150 B 1300 :: LIGNE=5 11 CDLONNE-20 1: GOTO 

220 FOR 1=1 TO B3 10O0 

230 READ F1(I),D1(I) 1180 GOTO 1010 

240 DI(I>«D1(I)*140 1: F2(I)-F1(I)»3 1 I90 IF LIGNE-3 AND COLONNE<20 OR LIGNE- 
21 AND C0LDNNE<20 THEN GOSUB 1300 :j COL 
ONNE-COLONNE+2 11 GGTD 1O00 
1200 IF LIGNE=5 AND CGLONNE-20 THEN 605U 
B 1300 :: C0L0NNE=21 :: LIGNE-6 .j GOTO 





,j,32: 



GOTO 3300 



GOTO 3370 
: : GOTO 3370 
CO-22 : : GOTO 3370 



; SOTO 



'"-NE. a i.R COLONNE 



, THEN I 



GOTO 1 



), 3470, 348 



CO-3 1 



•5ZZ.2.' 



270 DATA 523,1,523,1,523,1,440,1,323,1,3 

23, 1, S23, 1 .440. 1, 494, 1,494, 1 ,494, 1,440, 1 

,494, 1,523,1,440,2 

290 RESTORE 260 

300 FOR 1=1 TO 28 

310 READ F4(I),02(1) 

320 D2(Ii=D2(I)»2S0 

330 NEXT I 

340 CALL CHAR(96,"180C06FFFF060C1BI83060 

FFFF6i>30iaiaiB1899DB7E3CiaiB3C7EC3991S18 

18" 1 

330 CALL CHARUOO. "0066C3FFFFC3660000001 

360 CALL CHARU04,"00181B7E7E18180000666 

61B1B666600") 

370 CALL CHARU 12, " 0066661818666600") 

380 CALL CHAR(136,RPTt("F",16)> 

390 CALL CHAR(120,RPT-("18",8)1."1B18181F 

IF00000000000OF8F61B1B1BOOOO00FFFFOO000O 

BF BF S o O DO OOFFFFOOOOF F F F0O0O7 F 7 F 6 O 607F7 F 

000" ) 

410 CALL CHAR(12B,-FFFF04O6FFFF06O4003F3 



1000 

1230 GOTO 1010 
1240 IF LIGNE-3 AND CDL0NNE>6 GR 

1 AND C0LDNNE>6 THEN GOSUB 1300 I 
NE-COLONNE-2 :: GOTO 100O 
1250 IF L1GNE=5 AND C0LQNNE=6 THEN GOSUB 

1300 II CGLGNNE-S II LIGNE-6 :i GOTO 10 
00 



COLON 



:?o i 



LIS) 



1000 

1280 GOTO 1010 
1300 CALL HCHAR 



3000 II 

i GOTO 3035 

3O10 IF COLONNEi 

I GOTO 3Q3g 
3020 IF LIGNE-2 

II GOTO 3035 



COLONNE) /2 



430 B(LIGNE,COLONNE)-0 
432 C1LIGNE,COLONN£)-0 
440 NEXT COLONNE :! NEXT LIGNE 

445 HGN£=6 :: CDLDNNE-5 :■ COUP-0 

446 RGU-6 :: COLN-6 :: XAT,NATT-0 
430 FOR 1-1 TO NAT 

460 RANDOMIZE 

470 A1-INT(8*RND)+1 ii A2= I NT (UitRNDl + 1 
480 IF B(A1,A2><>0 THEN 460 
490 B(A1,A2)-1 
300 NEXT I 

310 CALL C0L0R(9, 10,1,10,6,13,11,14,1,12 
, 10,1,13,10,1,14,13,1) 
520 CALL SCREEN(2) 

330 FOR 1=0 TOB II CALL COLORU , 12, 1 > 1 1 
NEXT I 

531 DISPLAY AT(12,3)i" LES REGLES ?" 

532 DISPLAY AT ( 14, 10)BEEPi "0/N" 

533 CALL KEY(0,K,5> 

534 IF K-7B OR K-110 THEN 539 

535 IF K-79 QR K-11I THEN GGSUB 12400 t: 
GOTO 539 

536 GOTO 533 

539 CALL CLEAR 

540 FOR 1=5 TO 21 ii CALL VCHAR (5, I , 136, 
17):: NEXT I 

530 FOR 1=6 TO 20 STEP 2 II FDR J-6 TO 2 



3060 COL-0 I 



) COL-' 



SOTO 3100 
3090 COL -33- F 
3100 Cl-COL*\ 



LIGNE, COLONNE, 136J i 
5 THEN R-ILIGNE-6), 
1 THEN R-(34-LIGNE 
THEN R-(COL0NN£-6) 



G-23-F- 



LIG-0 11 V-0 11 W-l 

Ll-LIB+W 
3110 IF V-0 THEN C2-C1-1 :■ C3-C1+1 11 L 

BOTO 3130 
3120 C2-C1 :■ C3-C1 11 L2-L1-1 11 L3-L1+ 

3130 D-B*B(L1,C1)*B(L2,C2>+2»B(L3, C3)*l 

3140 IF D>4 THEN 3160 

3150 ON D SOTO 3170, 31B0, 3190, 31B0 

3160 MOTIF- id 11 BOTO 3320 

3170 COL-Ct II LIG-L1 11 GDTO 3220 

3180 8-1 11 GOTO 3200 

3190 S— 1 

3200 IF y-0 THEN v-S :i W-0 1: SOTO 3220 

3210 V-0 11 M-S 

3220 ON INTC <COL*13)/B)G0T0 3260,3240,32 

3240 ON INT< (LI8+13)/8)BOT0 3280,3100,32 



3280 S- 33 -COL 

3290 9-8+COL 

3300 IF S-R THEN MOTIF-100 11 GOTO 3320 

3310 GOTO 3390 

3320 ON INT((R-l)/8+l)B0T0 3330,3340,335 

O, 3360 

3330 LI=(R-l)»2+6 1 

3340 LI-22 1: CO=(F 

3350 LI-(24-R)»2+6 

3360 LI-4 it C0=I32-R)> 

3370 GOSUB 4000 

3380 GOTO 1010 

3390 ON INT((R-1)/S*1)60TQ 3400,3410,342 

0, 3430 

3400 HOTIF-96 :i LI=(R-1)*2*6 :i C0=4 1: 

GOTO 3440 
3410 M0TIF=99 ■: LI=22 1: C0=(R-9)*2+6 1 
: GDTO 3440 

3420 M0TIF=97 11 LI- (24-RI *2+6 :: CO-22 
: 1 GOTO 3440 

3430 MOTIF-98 :i LI-4 11 CO- (32-R) »2+6 
3440 GOSUB 4000 

3450 ON INT( (5-1) /B+DGOTD 346( 
0,3490 
3460 MOTIF-97 :i LI-<S-l>»2+6 I 

GOTO 3300 
3470 MOTIF-98 !: LI=23 :i C0-(S-9)«2+6 : 
I GOTO 3500 

3480 M0TIFJ96 1: LI- (24-S) *2+6 :: CD-23 
:: SOTO 3300 

3490 MOTIF-99 II LI-3 :i CO- (32-S)»2+6 
3300 GOSUB 4000 
3310 BOTO 1010 
4000 CALL HCHARILI, CD, MOTIF! 
4010 RETURN 

5000 CALL HCHAR (ROW, COL N, 112) 
3003 FOR 1-1 TO 10 :: NEXT I 
5010 CALL KEY(O.K.S) 
5020 IF K-8a THEN 5080 
5030 IF K=69 THEN 5100 
5040 IF K-68 THEN 3120 
5050 IF K-83 THEN 5140 
5060 IF K-32 THEN 5160 
5070 GDTO 5010 

508O (F R0L-K20 THEN GOSUB 6000 : 1 R0W=RO 
W+2 : : GDTO 5000 
5090 GOTO 5010 

5100 IF R0W>6 THEN GOSUB 6000 :: ROW-ROW 
-2 ; : GOTO 3000 
5110 BOTO 5010 

5120 IF CDLN<20 THEN GOSUB 6000 :i COLN- 
COLN+2 I 1 GOTO 5000 
5130 GOTO 5010 

5140 IF C0LN>6 THEN GOSUB 6000 1: COLN-C 
OLN-2 : : GDTD 5000 
5150 BOTO 5010 

EN 3010 

S162 XAT-XAT*1 

3165 C((R0W-6)/2+l, (COLN-6) /2-M1-1 

3170 IF B(<RDU-6)/2+l, (COLN-6) /2*1 1-1 TH 

3173 FDR I-I TO 30 II NEXT I 

31B0 IF XAT-NAT THEN 5200 

3190 RQW-6 Ii COLN-6 11 BOTO 3000 

5200 IF NATT-NAT THEN 3270 

5210 DISPLAY AT (2, 10) : "HEl.fiS I" 

5215 DISPLAY AT(23,1)I"TU AS TROUVE-INAT 

T) "ATOMES SUR"INAT 

5220 FOR ROW-1 TO 8 I I FOR COLN-1 TO 8 

3230 IF B(R0M,C0LN)-1 THEN CALL HCHAR ((R 

OW-1H2+6, (COLN-1 >«2+6, 105) 

3240 NEXT COLN ■ 1 NEXT ROM 

5250 FOR 1-1 TO 28 I : CALL S0UND(D2(I> ,F 

4111,21:: NEXT I 

3260 BOTO 3290 

5270 DISPLAY AT (2,9) 1 ■■BRAVO" 11 DISPLAY 

AT(24,3) fTAUX D'EFFICACITE 1 ■ II DISPLA 

Y AT(24,21)iU8ING "#.*••'! NAT/COUP 

52B1 FOR 1-1 TO BE :: CALL SOUNDI&l (I ) , F 

1 (I),2,F2(I),B)ii NEXT I 

3290 DISPLAY AT (24,3> 1 "UNE AUTRE PARTIE 

3300 CALL KEY(0,K,S) 

3310 IF K-78 OR K-110 THEN STOP 

3320 IF K-79 DR K-lll THEN 5340 

3330 GOTO 3300 

5340 CALL CLEAR I t GOTO 420 

6000 IF C((R0W-6)/2+l, (COLN-6) /2h 

EN 6010 



6003 CALL HCHAR(R0W,C0LN,32) 
6O10 RETURN 
2400 CALL CLEAR 

SPLAY AT (1,9 

SPLAY AT(2, 1 

SPLAV AT (3,1 

SPLAY AT (6,3 



2440 D 
C SE" 
2450 D 
KDLLECUI 
2460 D. 
2470 D 



2480 
1GNE 
2490 D 
RE UN 1 
2500 D 

2510 
AT (24 
2620 D 
APPE" 
2630 D 
DME HI! 
2640 D: 
2630 d: 

2660 D 

case vo: 

2670 D 
ST DEVII 
26S0 D 
AVANT " 
2690 d: 

CASE. 
2700 d: 
AT (24 



SPLAY AT (8, 



SPLAV AT (13 
IGNE DROITE" 

SPLAV AT (17 
ATOME" 
SPLAV AT(19 

SPLAY AT (24 
27):ZA» t: I 
SPLAY AT(2,I 

SPLAY AT (4, 
] EST" 



271 a 

T" 

2720 d: 
ASE vol! 

2730 D! 
ST REFLECHI 



2740 d: 



SPLAY AT(l: 
SINE" 
SPLAY ATli: 



DE" 
SPLAY AT 

SPLAY AT 

SPLAY AT (24 
27):ZAS : : I 
SPLAY AT(2,3: 

SPLAY 



SPLAV AT (6, 



SPLAY t 



19,5: 



"DE 4 A 6 ATOMES H 
"CACHENT DANS UNE 



"LA MOLLECULE EN 
"6AUF S' IL RENCON 



"DIRECTE-MENT UN A 

"ABSORBE, " 

"2/UN RAYON QUI DO 

: "PASSER DANS UNE 

1 "D'UN ATOME HIC E 

: "90 DEGRES JUSTE 

1 "D'ATTEINDRE CETT 

) 1 "ENTER" :: ACCEP 
CALL CLEAR 

RAYON OUI 



2750 DISPLAY 
MENT V0IS1NE" 

2760 DISPLAY 1 
ST REFLECHI" 

2770 DISPLAY AT (24, 20) 1 "ENTER 1 
AT(24,271irA» II CALL CLEAR 

2790 DISPLAY AT (23, 3) 1 "TRAJECTOIRE DE8 
RAYONS" 

2800 FOR I-B TO 24 



DO 

PASSER DANS UNE C 
DE 2 ATOMES HIC E 
4/UN RAYON QUI EN 
"UNE CASE DIRECTE 
"D'UN ATOME HIC E 
ACCEP 



2BK 



I 



CALL VCHAR (' 



> TO 



CALL VCHAR (1 



CALL ) 



CALL 



23 STEP 2 : 
NEXT I 
2820 CALL HCHAR(19, 19, 1 
9,13,112)11 CALL HCHARI 

HCHARf 13, 19, 112) 
2B60 CALL HCHAR(3,7, 123, lBll I ( 
R(5,25,96):i CALL HCHAR(9, 17,971 
HCHAR(9, 18, 123,B> 
2900 CALL HCHARdl, 7,97111 CALL HCHARU 
,8,123,5):: CALL HCHAR 

HCHAR(13,13,121) 
2940 CALL HCHAR (1 
AR(13, 17, 123)1: CAI 
CALL HCHAR (12. 13. 1 
2980 CALL HCHAR (1 

23,B)n CALL HCHAR- 
ALL VCHAR(1B,9,120, 
23,2) 

3010 CALL HCHAR(21 
1,17,129) ■■ CALL HCHAR 
HCHAR(17,22, 126,3; 



27) 

13040 DISPLAY AT(24, 
13070 ACCEPT ATI24.27) 
13080 DISPLAY AT(5, 



13090 DISPLAY ATU3 
E OU SORTIE" 
13100 DISPLAY AT(24 
T AT(24,27)iZA> :: ) 



1,13,121 



CALL HCHAR 
9, 1221 ■ ■ C 
CALL HCHAR (17,7, 



9,98)n CALL HCHAR(2 
7,23,128)11 CALL 
CALL HCHAR(17,21,1 



ENTER" 

\% it CALL CLEAR 
CHRXIOO))-- RAYON 



,AMSTRAD 

Suite de la page 24 



880 LOCATE 14,10 i PRINT "ENTER Po 

ur rtjoumr" 

890 IF INKEY<18>-0 THEN ERASE t--si 

or«-0^ GOTO 10 ELSE GOTO 890 

900 ' BRUITRGES 

910 SOUND 1-28.10,15,1.1 'User 

920 RETURN 

930 SOUND 2,200,50.13,1.1,5 'exPlo 

se 



960 RETURN 

970 SOUND 1.1.408.15,3,3,30 'mort 

980 RETURN 

990 ' PRGE DE PRESENTATION 

1000 PEN 2 

1010 LOCATE 1,2 'PRINT " Vows et»s 



mjiltrp a bord de " 
1020 FOR TW20 TO 3 STEP-1 ■ LOCATE 
30,Ti'PRINT " "i LOCATE 3B,n-l:PRIN 
T CHRi(254;i FOR m«l TO 38'NEXT rn: 

NEXT n 

1030 LOCATE 1,4'PRINT " les "^PEN 
l! FOR n-20 TO 5 STEP-1: LOCATE 6, 
r,, PRINT " "i LOCATE 6,n-l'PRINT CH 
R«<235>' FOR m-1 TO 50 'NEXT to> NEX 
T n 'PEN 2 

1040 LOCATE 8.4' PRINT "deferlertt 
awtour de vows" 

1950 LOCATE 1.6 'PRINT "votre " ■ 
FOR Ti=l TO 508 'NEXT n 
1060 GOSUB 908 

1070 PLOT 112,292^DRRW 600, 292, 3- 
PLOT 112,300'DRRU 600,300 ■ FOR Ti- 
1 TO 200 'NEXT Yl' PLOT 112, 292 'DRAW 

600,292,0' PLOT 1 12,300 'DRAW 609, 
300 

1088 LOCATE 8,6'PRINT "laser les 
" GOSUB 950 

1890 FOR TY" J TO 580 'NEXT r> 
1100 LOCATE 19,6'PRINT "detru.it (C 
OPY? 
1110 LOCATE 19,7'PRINT "+ 10 Point 



1120 LOCATE 19,8'PRINT "-1 Point % 
1 rat* 

1130 FOR fl-1 TO 508 'NEXT ti 
1140 LOCATE 1,10' PRINT "mais atte 
ntioTi,ils "■ GOSUB 930 
1158 PLOT 336,248, 3'DRRWR -108,-15 
0' PLOT 336,240'DRRWR -10,-150' PL 
OT 336,248'DRAWR 38,-150^ FOR n^l 
TO 500 'NEXT TI' PLOT 336, 240,0 'DRAW 
R -100,-150' PLOT 336,240'DRRWR -1 
0,-150' PLOT 336,248'DRAWR 30,-150 
1168 LOCATE 20, 10'PRJNT "exPlosent 
et PeuveTtt" 'GOSUB 970 
1170 LOCATE 22, 11 'PRINT "vous detr 
uire" 

1180 LOCRTE 1,13'PRINT "s'ils atte 
rrisseint - - 50 Points 
1190 LOCATE 1,15'PRINT "dePlacez V 
ows avec les fleches de direct 
ion "jCHR«<242>j" ";CHR$'T243> 
1200 LOCRTE #1,1, J. PRINT #l,"le 6/ 

2^84 Yves BRRNEYRE 

1210 LOCATE 32,20'PRINT "'ENTER' 

1220 ON DIR GOTO 1230,1318 

1230 FOR N«2 TO 30 

1240 LOCRTE N-1.£8'PRINT " "jCHRK 

254) 



1250 H-INT<RND*10> 

1260 IF H-0 THEN GOSUB 900 ELSE 12 

80 

1270 PLOT N*16+2,80'DRAW N*16+2,12 

8,3'PLOT N*16+12,08'DRAW N*16+12,l 

20'FOR M"l TO 100'NEXT PI'PLOT N*16 

+2,80,0 DRAW N*16+2,120^PLOT NX16+ 

12,00'DRAW NXI6+12.120 

1280 GOSUB 1390 

1290 NEXT N 

1300 DIR -2 'GOTO 1220 

1310 FOR N-30 TO 2 STEP -1 

1320 LOCATE N-l, 20. PRINT CHR«254) 

1330 H-INT(RNO*10> 

1340 IF H-0 THEN GOSUB 900 ELSE 13 

60 

1358 PLOT N*16-14,80'DRAU N*16-14, 

120,3'PLOT N*16-2,B0'DRAW N*16-2,l 

20'FOR M-1 TO 100'NEXT M'PLOT N*16 

-14,90,8'DRAW N*16-14,128'PL0T N*l 

6-2,90'DRAW N*16-2,120 

1368 GOSUB 1390 

1370 NEXT N 

1380 DIR -1 'GOTO 1228 

1390 IF INKEY<19>"0 THEN 230 ELSE 

RETURN • 



MURS 



zxar 



Vous n'etes pas le seul a etre aHame. les monstres 
bavants qui grouillent dans le labyrinthe guettenl votre 
presence. Un conseil, soyez rapide et n hesitez pas a 
leur barrer le passage. 

J. Noel DEPIERREUX 
Mode d'empioi : 

Entrer 1 HEM suivi de 199 caracleres. laire 7 editions de celte ligne 
pour obtenir 8 hgnes numerolees de 1 a 8 
Faire ensuite 

POKE 16514.118 POKE 16515,118 POKE 16511 100 

POKE 16512.6 



Enlrer le programme BASIC puis HUN Le ZX effectue le transfer! 
des codes en mode FAST En cas darrel au cours du Iranslerl. 
verifier les codes machines de la section mcnminee 
Les regies sonl dans le programme La difliculle aoissante du jeu 
est obtenue en augmentanl sa vitesse. mais aussi en laisant vaner 
la Vitesse relative des monstres par rapport a la votre Ces dermers 
ont un deplacemeni imprevisible. mais a chaque croisement. ils ont 
2 chances sur 3 de prendre une direclion qui les rapprocheroni de 

Le mur est genere au niveau de la derniere porte par laquelle vous 
eles passe (appui sur 0) Si vous etes devore. lappui sur une lou- 
che apres quelques instants, vous ollre I occasion de (aire mieux. 



■ 

TOUCHES UTILISEES 5 6 7 

e 

260 i 

290 

320 

""01 INIT. DES TABLEAUX 

_,10 I - 

1210 I - 

'310 I - 

.001 CHARGER. COPE MACHINE 

8998 CODE MACHINE 

9039 DETECTION D ERREuRS 

9100 TRAN5FERT 



10 IF- PEEK 1914«t>a«l THEN GOT 
B 000 

20 GOTO 60 
30 CLEAR 
40 SRUE "MURH" 
60 CLS 




370 POKE 16519. CODE 

300 POKE 16524. CODE 

390 POKE 16517.0 

400 POKE 16618.0 

410 LET Bafl+726 

420 FOR C-17910 TO 1 

430 LET BaB+1 

435 POKE B.PEEK C 

440 NEXT C 

450 POKE 166*6, INT 



«3 THEN RAND USR DEP1 
C-SC+100.PEEK ■•■ 
. _#INT I IPEEK H 
..J PRINT RT 31,88; SC 
510 IF PEEK 16B54<2 THEN POKE : 

MB-'lF PEEK 16539-2 THEN GOTO 

530 FOR fl-1 TO 100 
540 NEXT R 
550 IF INKEYi 



1264 POKE 16536,33 
1*66 LET 6«INT (RND.2) 

1269 POKE 16S37,6a*<B"D +90#iB«0 

or ■ ■a> 

1270 POKE 16539, Lt tB>S) +33aiB*0 
OR B«U 

1272 POKE 16525. 310+A -256 *INT CI 

310+0) /256) 

1274 POKE 16526. INT t 1310 + A) /256 

1276 POKE 1S552.2 

1279 POKE 16661 - " 

1280 RETURN 
1310 PRINT RT 0.1 




THEN GOTO 560 






, MKuiiMCJJiuH - vgua 

, FERHER DES POPTES 

i MURS: 2 MURS PEUUE 

i SIHULTANEMENT 

i UNE OUREE DE U 



r%fWySWWWWWVW 



r 



::*:'jt;: 



58 IF INKEYi< >" 
60 CLS 

" PRINT TAB 7; . 
RT 4,4, "OEPLfli 



!# 



i?EMl9f^*75T^ 
-- ,flT 7,4, "GAUCH 
.B";P.T 9,4; "BR5. . 
.kt;AT 11,4, ■■HflUT 
.iltfc«l 13^4; -DRO 



ferw 



TOT 
if. o- 



. ■» . ■ . *g mm ■ l • * 




... RT 31,0, "SCORE: 000| 
JEU: JlTOTflL. 

1360 LET BaINT (RND*2) 
1362 POKE 16635, 90* lB»0t tS2*(6«l 

1364 POKE 16336.33 

1366 POKE 16637, B2HB"D *90* (O«0 



i40thj /256) 



AT 19,4.; "Dfii 

._ ifiT 17,4; "HL 

-- ,RT IB,*; 1 ' ";ftT a«,4,"GE 

NERATION ■'■ 

64 IF INKEYI-"" THEN GOTO 64 

66 IF INKEYi <>"" THEN GOTO 66 

70 LET Ca0 

60 LET DEP1-17880 

90 LET DEP2-16040 
100 CLS 
110 RAND 
120 LET N-60 
130 LET J-0 
140 LET SC-0 
150 POKE 16863,255 
160 POKE 16564. 12 
170 LET B-0 
175 LET UaJ*l 
180 POKE 16616, N 
190 POKE 16549.0 
200 POKE 16550,0 

205 LET AaPEEK 16396 +256 »PEEK 1 
639? 

210 GOSUB 1000 + 100* IU-3*INT l Id 
-1) '3> 1 
220 PRINT RT 21, 17, J, AT 21,28.5 

240 POKE 16521, 313ffl-2B6»INT U 
313+A) /2S6) 
250 POKE 16522, INT ((313+RI/256 



>Tfr 21,0 
TOTRL; 
B-INT IRND*2) 
1162 POKE 16535, 9B*(B«0 

1164 POKE 16536,33 
1166 LET BiINT (RND*3) 
1168 POKE 16537, B2« (B> 

OR B = 2> 

1170 POKE 16539, !• 1B"2) + 33« iB«0 
OR B"l> 

1172 POKE 16525, 277+A-256*INT li 
277+A) /256> 
1174 POKE 16526, INT ll277*Rl/2S6 



SCORE: 000 ■ 



1) T.O. IB>0 



1374 POKE 16526, INT 

1376 POKE 16562,2 

1378 POKE 16551,73 

1380 RETURN 

6000 REH ___ 

6001 rem ITlTrMtrlM 

8002 REH 
8094 FAST 
=305 GOSUB 9000 
9006 SLOU 

9010 RUN 

8999 REM SOBBra 
9999 REH 

FFFR7ED52CAE84i21EFFD505957ED52C 
H"B4021EFF75059A7ED52Cfl3041SlEFE 
II M21EFDF5059A7ED5 
2CR4A4121F7OF50B9A7ED52CR5741C3B 
2-l02^6D407EFE00C2EB413RB540FC00C 




iafiiamwaFeMQiiMi" 

9001 LET Ai-Aft ■3R8440, 

403606C3E8413A944032854022BF4036 



'3R044032B6492291 



TOmfTPlTRT 21,0, "SCORE: 000 ■ 

UEU: 1 TOTRL: 

1260 LET BaINT 1RND*2) 

1262 POKE 16535, 90#iB"0) +B2ttBal 



03C3E64l3EBO32i 

ijalBSir 

326A41- 
3E0132L . 
6B407EFE8<--. - 

9002 LET Af,-0| + "41FE1BC2E3412A05 
407D3C6FE60FFE0A200D7DE6F0C5106F 

FER02003;.;.. lElgH0C4>eeeea 

0ESDO7ED4P -.H6F0CB0FCB 

0FCB0FCB0FC61C77237BE60FC61C772A 
99403E00772A8B402269403E9777237E 
FE96COE24 106000E2«R7|D*A" 

9003 LET P.i-A|+ '7EFEAEC2E8412A89 
40228D 4020054 0EB2OO740O7EL''iiCH2i' 
ii j-5^J^' ; ES0C«0Ct23L.32B540FE00C2 
0C422OSF403E00773A8640Ft:.v 
3D329640=*:. :-.:.403E00773E 

aBC33442;f.' ic55l483B0a 

329640090000000000000000" 

9004 GOSUB 9040 

9005 IF 9O5024 THEN STOP 

9006 LET 1-16560 

9007 GQ5UB 9110 

9008 LET AI>"2A9C4016001E01060OA 
7ED527EFE97CHF14 3FeiBC25fl42010E0 
lFE00C2624204aEOHE20A7ED52 7EFE9 
7CAF143FE1BC27542040E02FE00C27D4 
a«40|raiE§» . : - : :T7CAF143FE1 

§ca§34f94iea ■ ■■■iO40E03iEs 

0A7EDSR7EFE97CAF143FE" 



+ TRS80 

Suite de la page 23 



I'ESPACEi 



5180 FORI=0TO1000:NEXT 

5190 PH1NT3967, -APPUYEZ SUR LA (SABRE 

UR CONTINUER'; 

5200 R« = INKEV*: IFR»< ' ■ -THEN5I:00ELSEGOTOt00 

59V9 REM N SOUS-PRS REPONCE » 

£j000 POKE16176.&3:POKEltiiet,63:J=0 

6010 lFJ=0THENAC-16176ELSEAC»l61B«t 

6020 FORI=0TO10:POKEAC. 1 28 I NEXT: POKEAD. 9> ^=USR< 342 

3> :FORI=0TO20!POKEAC,63iNEXT 

fe030 T=PEEK( 14352) : 1FT=0ORT=128THEN6020 

60*0 J=J*l:T( J)=L0G(TJ/L0E(2)_ 

6050 IFJ^1THENPRINT374B,D»(T( 1) 1 5ELSEPRINTS756. D» ! 

T(2>>! 

6060 IFJMTHENRETURNELSE6010 

6200 REM « SOUS-PRG DE MUSIOUE GAGNE * 

6204 RESTORE 

6207 R£ADD,T:IFDO0THEN6207 

6210 READN,T:IFNO0THENPOKEAD,T:X=U5R(N> IGOTO6210E 

LSERETURN 

6220 DATA133S.a,221B,a.221B.e,2200,a,22ia,B. 1-583, 9 

I 19B3,B,220Bi8,24A7,B,2929,B,3423iB,2929,B,2v29,a, 

2687,B,26B7, 16. 2929, B, 1739, B. 1739, B, 2929, B, 2687, B, 

19B3.B, 1983,8,2200,8,2200,8,2218.8 

6230 DATA2200, 8, 2218, 8, 2200. 8, 2216,8,2200, 8, 221 8, 8 

.2200 , B, 2218,8, 2200, B, 22 18, 8, 22 18, 8, 1983,8, 1983, 16 



.0,0 

6300 REM • SOUS-PRG MUSIOUE PERDU • 

6310 RESTORE 

6320 READD,TtIFTO0THEN6320 

6330 READN.T: I FN C3 0T HEN POKE AD. T : X=USR t N) (GOTO6330E 

LSERETURN 

6340 DATA22IB, 16, 26B7, 32, 2439, 32, 2687, 16,2929, 16,2 

218, 16,2200, 16, 1983,32. 1739, 16, 1983, 16, 1764,32, 173 

9,32, 1535, 16, 22 IB, 16,2687,32,2439,32,2687, 16,2929, 

16, 221 B, 16,2200, 16, 1983,32, 1739, 16, 19B3, 16, 1764,32 

, 1535,45,0,0 

6400 PRINTS964. "TROUVEZ LA SUITE LOGIOUE DE LA DIS 

POSITION CI-DESSUS- i I RETURN 

6500 PRINT8964." APPUVEZ SUR LA < BARRE D'ESPACE 

> POUR CONTINUER *l 

6510 PRINTa74B,D«(D2) ,a756,D»(Dl ) i :FORI=0TO10iNEXT 

:PCIKEAD,B:X-USR(2218) : PRINTS74B, D«(0) ia756,D»<0) i 

6520 R*=INKEY«t IFR»<>- " THEN6510ELSERETURN 

6599 REM • SOUS-PRG DE TIRAGE DE CHAINE » 

6600 RAND0MiP>RND(7) 

6610 T*-- 01 2345601 234360123' i T1*-MID» ( T», P. 12) 
6620 F0RI-1T012ID1 (I )"VAL CHIDi I Tl«, 1,1)1 :NEXT:RETU 



6700 REH <<<<<<<- 



OUF ■ C'EST FINI 



9009 LET A|aAi+ 1BC2AB42040E04FE 
00C2B342040E04 73FEtf0CAE943FE0iCA 
224.4FE01CAF7*32fla9*eCi:A24*472fl9C 
40CDA244 90C2Fi4^FAE4423E5232 7F4 3 
3E013^8043C3FB423E5h327F*33E0132 
3sS4JC3FB42 3£5A327F4j3Efl032804 32A 
39A02e7EFE76C2FE4£E82>i9C 

9010 LET R|<H|i 402B7EFE76C20943 
IS7ED52CA3343FA264 33E523276433E21 
327743C33D433E5H3276433E2 1327 743 
C3 3043 3ESA32764 33E003277 432 Asi 140 
2 3Ee21D0 1DA7E052C 2504300 1600 1E00 
E 8220 1407E LCC ■t--E01CM*6*JF ; Ed^:.Hii3 
4 3FE03OHaA43FE04CA6443FE" 

9011 LET AlaA|+ '0SCA7E43F 

4321000022A340C3994321000i_. 

215201O39943il5A21C39 94 3215A01C3 
99432 1522 122m3*0EB JA9F40BHC2AB4 j 
3A9E40BBC2iD-i32A9C407B5A1600 32B7 
4 3A7ED007EFE00CAC343FE16C23O4 32A 
9C403AA040771600 3AA4405F" 

9015 GOSUB 9040 

9016 IF B(>4962 THEN STOP 

9017 GOSUB 9110 

9022 LET Ai- 3Am34O32I:343A7EO002 
29C40 7E32A0403E84 77aAH340^£9E403 
E00329B40C3F6433E01329B40C979FE0 
4OA1944FE03CI-.1344FE02CA0D4421520 
1C31C442 1522 1C3 10442 15 A01C31C442 

I J2A9C4016003A9F4 
05F3fl9E40323^44A7ED00■■ 

9023 LET AI>AS*"7EFE00CA4244FE1B 
CA4244C34B442A9E4022A340C3C3433A 

9F40FE0H;A7A4 42fl9C4016001E01l 

SA7EFE00CA7144FE1BCR71442152' 

A340C3C343215A0122A340C3C34 32A9C 
4016001E21H7ED5A7EFE00CA9844FE1B 
CA^644^15j2122A340C3C34^■■ 

9024 LET Pi.A|. 21SA2122A340C3C3 

■ :■■■ ■ 

16001E21C3A744 7DFE21FAC344DS216F 
3674409000000000000806060608080 
8 090A69180PiF96B3e0A9fiAB5REAAB78 7 
AABABD90809090906080CD4042CD4042 
2M9-;40229 340i3Se*0i2 9 7 4.e.3Afi04 32 
B74.03A9B40FE00C23F4S2A954022SC4 
20994022 9E403H884032R040CD4042CD 
40422090*0 22 i^itfi A it 40 22 99403000 
403238403O9B40FE00C23F45C3CA44C9 
00002RA94016001E01O7ED52C24O45O9 
0000000000002 17FFD5059O7ED52CA32 

. IB .10300000000000 ■ 

9025 GOSUB 9040 
9B2& IF B<>4620 THEN STOP 
9027 GOSUB 9110 

9026 LET A|a' 2O9340229O402O97402 
29E403OS74032O040O9002A9C4022934 
02A9E402297403OA040323740C9002A9 
540229C402M99402£9E403fiS54032O04 
0C9002R9C402295402AJE4022 9940 300 
403286400 9C,';.---:-.i,:-',< i -i01 IE 000 74 
44OEO52C2C64503605922O940C900000 
000000000" 

9029 LET 

40FE00C272. 

7E45 3OJB40FE00C27i46COfl245CD4245 
CD4012CDA6453O9B40FE00C27246CDDO 
45CD4245CD404.2CD7E453O9B40FE00C2 
7246CD4245CDB0403O9B40FE00C27246 
CD92" 

9030 LET A«-Ri + "45CD4245CD4042i~D 
O6453O9B40FEO0C27a46CD6O45CO4245 
CO4042CD7E4S3O9B40FE00O27246CD92 
45OD424 5OD4042CDO6453O9B40FE001-2 
7246CDBO45C3D845C90000000000CO4 2 
45CDB0403O9B*0FE00C2DC46CD6A45i-O 
4245CO4042CD7E453R9B40FE" 

9031 LET Ai=fli*"00C2DC46CD9245^D 
4245CD4042CDA6453O9B40FE00C2DC4 6 
OD5A45CD4245CD4042CD7E453O9B4 0FE 
00O2DC46CO9245CD424SCO4042ODO64B 
3O9B40FE00C2OC46CDBO45C37946C900 
000000000000" 

9035 G06UB 9040 

9036 IF B<)4637 THEN STOP 

9037 GOSUB 9110 

9036 RETURN . J , _^„ _^ J 

9039 rem raiM«rr jjj "°' 

9040 LET B^8 

9050 FOR A>1 TO LEN Ri 

9060 LET S-6+C00E iO«IOll-26 

9070 NEXT fl 

9075 PRINT RT 0,0.6 

9090 RETU RN 

9100 REM iriiMiri 

9110 FOR J:l TO LEN A»-l 5TEP 2 

9120 POKE I,16*(C0DE O* ■. J ■ -23 i +C 

ODE A«iU + U -28 

9130 LET IaI+1 

9140 NEXT 

9150 RETURN • 



+MSX 

Suite de la page 3 

ISLINE - I1B7.133) 1LINE -(IBS. 142): 

LINE -<1?4,1«3>:LINE -I171,140I:LI 

NE -1172,134) SLINE- 1169, 1271 

4080 COLOR A 

4090 PSET (IBS, 137) !LINE -1161,136 

ISLINE - 1179, 139HLINE -1176,137): 

LINE -(174, 140> 

4140 PSET (173,141) :LINE-I173, 141) 

4160 PSET (171,120) ILINE -1173,114 

1ILINE -1178,114) :LINE -1182,117) 

4170 COLOR 15: PA INT (191, 107) : PAINT ( 

174,106) 

4180 C0L0R6 

4190 PAINT (83,57) : PAINT (S3, 65) !PAI 

NT i 92, 65) :PAINT( 115,65) :PAINT(139, 

65) : PAINT (137, 106) : PAINT (68, 115) :P 

AINT (86, 113) : PAINT! 102, 115) : PAINT! 

120,115) 

4200 PSET (173, 141) :LINE-(173, 1401 

! LINE- (176, 137) :i.INE-(179, 139) ^LIN 

E- (182, 1361 : LINE- I 186, 137) J LINE- II 

B6, 1401 : LINE- 1 184, 141) ; LINE- (180, 1 

42) ILINE- (172, 142) : PAINT (180, 1391 

4210 RETURN • 



LE LOGICIEL DE LA SEMAINE 



WIZARD dePERSONNAL 
SOFTWARE pour COMMODORE 



Certes. la vie de magicien ne- 
cessite calme el concentra- 
tion. Les etudes longues el 
studieuses que vous avez sui- 
vies durant ces vingt dernieres 
annees vous ont donne les 
moyens d acces au monde 
ferme. secret et indicible des 
Magiciens. Seul obstacle a 
votre entree dans le cercle des 
inittes. un chateau aux cent 
pieces vous attend. Cent 
pieces semees d'embuches 
les plus diverses qui vous em- 
meneront aux trontieres du 
possible. Pour etre precis, 
chaque pas que vous accom- 
plirez vous semblera toujours 
plus pres de r impossible. Tout 
est concu dans ce domaine 
pour tester votre aptitude a re- 
sister aux situations les plus 
improbables. Votre sang-froid, 
dont vous tirez une legitime 
fierte. saura-t-il vous aider a 
en sortir sans dommage ? 

C'est sans conteste la pre- 
miere fois que vous penetrerez 
dans un monde cree par des 
magiciens pour des magiciens. 
A chaque etape. vous dispose- 
rez dun temps restraint pour 
Iranchir victorieusement toutes 
les chausse-trappes. 
Heureusement, dans leuf im- 
mense mansuetude. les 
concepteurs de cet univers 
vous rendront partiellement la 
memoire. le temps de reirou- 
ver la formule de lun de vos 
sorts. A chaque tableau cor- 
respond un sort specitique. sa- 
chez qu'il n'a pas ete choisi au 
hasard ! Du bon usage ou du 
mesusage de celui-ci depend 
votre survie. 

Si vous arrivez au bout de 
cette aventure, vous devien- 
drez maitre parmi les maitres. 
Votre histoire se finira-t-elle 
comme cela ? Certainement 



pas I Desormais vous aurez 
droit a toutes les prerogatives 
dues a votre rang. Vous pour- 
rez modifier chaque piece, de 
telle sorte que votre succes- 
ses ne puisse se baser sur 
votre experience ou celle de 
vos predecesseurs. Selon 
votre volonte. les pieges s'al- 
legeront ou deviendront en- 
core plus diaboliques. A vous 
de juger de la difficulty de ctia- 
cun. 

Sans conteste possible, il 
s'agit la de I un des meiileurs 
logiciels d'arcade proposes 
pour le C64 Fils spirituel de 
Lode Runner et de Jumpman. 
il reunit les avantages de lun 
e! I'auire tout en possedant 
une personnalite forte et origi- 
nale. Le graphisme. d'une 
qualile hors du commun. sal- 
lie a une sonorisation de bon 
aloi: un chef-d'oeuvre qui se 
doit de figurer dans votre logi- 
theque I 




PEPE LOUIS CONTRE LE GANG DES PUCES ! ITI&)U 



RESUME DES EPISODES 
PRECEDENTS 

Pepe Louis, vieux detective infor- 
maticien enquete sur le Gang des 
Puces flmge par lodieux Harry 
Kong, surnomme I'Ombre Verle 
Kong a kidnappe une vinglame de 
jeunes femmes dont lepotise du 
Vieux (superieur hierarchique de 
Pepe Louis) 

Mene par son extreme intuition. 
Louis arrive en Californie. . Mais 
a son tour il est enleve I 
4eme EPISODE- 
MICK BIDOUILLE 
ENTRE EN SCENE ! 

La douleur qui me vrille 
I epaule est due a un de ces 
vieux: rhumatismes qui me mi- 
nent depuis que j'ai arrele de 
faire du saut a la perche a 
lage de neuf ans. Je me 
masse I'epaule en faisant le 
point. La Buick roule a torn- 
beau ouvert a travers la ban- 
lieue de Los Angeles, mais je 
ne pedx pas profiler du spec- 
tacle des bidonvilles califor- 
niens car toutes les fenetres 
sont obturees. Je n'ai aucune 
idee de lendroit ou Ion m'em- 
mene, mais je suppose que ca 
n'est pas dans une venle de 
charite ou au massage thailan- 
dais. Je jette un coup d'oeil a 
ma degoulinante du poignet et 
je note qu'il est onze heures et 
qu'il fail soil. 

Je regarde desesperement au- 
tour de moi et j'en arrive a la 
conclusion que ce serait vrai- 
ment un coup de chance si je 
trouvais un kil de Muscadel 
sur la banquette de moleskine. 
Mon attention est attiree par 
un haut-parleur encastre dans 
la portiere gauche. D'autant 
plus que celui-ci crachotte 
comme un cathareux depuis 
quinze secondes. On croirait 
un prelude a I Appel du 18 juin 
sur la BBC. Puis le son 
s'eclaircit. s'amplifie. se de- 
graisse et brusquement il jaillit 
pur e! limpide dans mon oreille 
aussi sale ou'atlentive. 



• Don't worry Peipei Louis I 
Ce nest pas un rapt, man 
Cest djeust une mesure de 
secunte Vous en saurez 
plousse dans un moment ! 
J'ai du mal a comprendre les 
propos de mon interlocuteur. 
Le ton me paralt jovial et ras- 
surant. mais je ne saurai Irop 
rester sur mes gardes. 

- Qui etes-vous ? brule-pour- 
point-je a tout hasard. 

- Vous le saurez dans djeust a 
moment Peipei Louis. En at- 
tendant, il y a un petit Kir on 
the rocks dans le liroir a gla- 
cons devant vous, old man ! 
Effectivement. je lire une poi- 
gnee metallique et le miracle 
americain associe au bont 
gout francais prend forme de- 
vani mes yeux: un KIR 
ROYAL ! Je craque, j'oblem- 
pere et je sirote. 

Quelques minules plus lard les 
pneus de la Buick crissent sur 
du gravier. les rideaux melalli- 
ques se Invent et je me trouve 
en presence dune superbe 
batisse de style colonial. C'est 
blanc comme du linge lave 
avec OMO. c'est en marbre 
comme la plaque de mon den- 
tiste et c'est luxueux comme 
une saucisse aperitif apres 
vingt-huit jours de greve de la 
(aim. Mon petit chauffeur vient 
m'ouvrirla portiere. 

- Missie pardonnez-moi. Ji 
avoir I'ordre de te conduire ici 
ultra quickly, s'il vous plait 
merci, Don't forget le chauf- 
feur, tankiou. 

Je ne me sens pas trop I envie 
de le remeroier apres le coup 
de Jarnac qu'il vient de me 
jouer, mais je lui glisse tout de 
meme un billet de Tacotac pe- 
rime dans le creux de la main, 
avec un sourire mielleux. II 
empoche sans regarder. exe- 
cute trois courbetles el de- 
gage le terrain. 

Le pare qui entoure la maison 
est splendide. On se croirait 
dans Louisiane de Maurice 
Denuzieres. Je m'approche du 
batiment en trainant la patte 



lorsque un individu apparait en 
haul de I escaher. II est jeune, 
relax, et sounant de I oreille 
gauche a I'oreiiie droite. Une 
meche blonde et filasse lui 
tombe sur loeil. Dans les sept 
secondes qui suivent son ap- 
parition, il la remonte trois fois 
mecaniquemenl d'un geste au- 
guste, mais cette meche-la est 
plus lelue qu'un officier du 
KGB en seance d'interroga- 
toire. 

II descend les trois marches 
quatre a qualre el me lend une 
main energique alourdie dune 
chevaliere en plomb plaquee 
a I'of (in, 

- Hello Peipei Louis ! I am 
Mick Bidouille. le celebre re- 
porteur milliardaire du Wa- 
shing-Machine Posl ! Je suis 
vachely heureux de te voar ! 
Ce jeune impetueux m'arrache 
lavanl-bras et le secoue 
comme un thermomelre. Je le 
rabroue dun mouvement de 
sourcil: 

Suite page 11 
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CONSOLES £1 ACCf SSOIRES Tl 99/4 
Micro-ordinoteur Tl 9SV4A Pal / Peiilel / Secam 
Moauloteur Secam France 
Cable Mais an magneto cassettes 
Magneto cassettes Teias Instruments 
Magneto cossettes Lansay / Compteur et cdDle 
Imprtmante Seikoscho GP 50 A 
Imprlmanle Seikosctio GP 500 
Imprlmanle Epson RX80 trlctl on/traction 
Machine a ecrire Brorher EP 44 d memoire 
Inlerlace oarollele eiterieure pour Tl 99 
iniertnce serie eiteiieure pour Brotlier pour Tl 99 
Extended Basic manuel onglais 
Extender! Basic manue! Ironcals 
Exiension memoirs 32 K extPrieure 
Maneite de jeui Super Joy a ventouse nvec 
interlace speciole supportont 2 monettes 
Moneite Quick Shot II d veniause Tir Oloque 
avec odaptoieur pour 2 mane'tes 

PROG RAM M ATI ON 

Tl Logo n 2 en trancals HvraDle avril (Module) 
Mini memoire livioble avril (Module) 
K7 Basic par soi-meme 
K7 introduction auTI 99/1 
K7 introduction au II 99/2 
K7 les techniques de progromme de jeui n° lour,; 
i Iranfais 

PGC0/PPCM 



JASIC ETENDLI 

Lunar Lander 2 i simulation de vols spatiaux 95 F P 

Londr Jumper i moto de I'espoce 1 20 F □ 
Solar systeme : pilotage d la cane en 3 dimensions 1 20 F LI 

Sum Games (les jeux olympiques) 1 20 F D 

Promotion ; les 4 K7 Epsilon lensemnle 380 F □ 

K7 HEBDOGICIELS SOFTWARE POUR Tl 99 

N° 3 rubls sdcre Baste etendu 95 F D 

U° 4 6 Jeux dont Dark Crystal Basic etendu 120 F n 

N° 2 12 |eux donr Roldhd Garros 150 F □ 
MODULES TEXAS ORGANISATION 

Gestian de lichiers 260 F L ] 

Gestion de ropports 375 F L! 

Gestion prlvee 360 F" 

MODULES EDUCATION 

Additlon/Substroctlon 

n°lou2 147FC! Addition Cannon 147F,. 

Mission mains 147 F . . Division/Demolition 147 F : ! 

Meteor-Muliiplicatlonl47F Q Multiplication I 147 FO 

Early reoatng/exerclce de lecture pour debulant 

enonglols 147 F D 



A VOS CONSOLES Tl 99/4 basic etendu disponible 



T.I. logo N° 2 disponible 

mini-memoire 
disponible avril. 







NOUVEAUX LOGICIELS TEXAS 
Reiour du pirate 250 F , ! Demon an. 
Mash 250 F i 1 Burger rum 

Microsurgeon 250 F ) Hopper 

Hopper 250 F r I Star rreck 

Jaw breaker 250 F D Treasure Is 



LOT N 1 INDISPENSABLE 

• Module BASIC ETENDU manuel en Honcois 

• K7 Basic par soi-meme 

• K7 Lunar Lander 2 (slmulallon de vols 

spalinu.) B50 F D 



LOT N ■ 2 EXTENSION COMPLETE 

Le module Basic etendu manuel en lror>cals 

K7 Boslc par soi-meme 

Extension memoire 3ZK ext. 

K7 technique Oes programmes de |eux n° 1 et 



LOT N' 3 ETUDES DU LOGO 

Le module Baste etendu manuel en trancals 
Extension memoire 32K ext. 



MODULES ATARISOFT POUR Tl 99 

MoonPatiol 219 FD MisspacKman 219FO 

Delender 219 F D Pool position 

Jungle hunt 219 F U (disp. tin mars) 219 F G 



BASIC ETENDU 
MANUEL EN FRANCAIS 

MODULES FUNWARE POUR Tl 99. 4 

Rabbit Rail i le lapln malln 

Driving Demon - jeux de voi lures 

St nictt : le Pere Nodi arrive 

Ambulonce : avez -vous conduit une ambulance ? 

MODULES ROMOX POUR Tl 99 
■ Princess ond Frog 9 niveaux, module d'adresse 
lous Traverser lallee des covoliers - Traverser le II 
Reussir delivrer 



• Rotor Raiders 

musique 

■ Ken Pecked 6 n 

coqs en musique 



combatlanls - Acc&leroiion loudroyante a 
I. 120 FD 

9 niveaux - Pac-Man diabolique el en 



PROGRAMMATION SUR DISQUETTES 
Cotlrei perlptierlque Texas i orlglne U.S.A. 
compienonl le bolller. le conlrOleur 
eirunltededlsquorte 5700 F D 



LANGAGE PASCAL c< 

Ld cane P. code el les dtsquetles Pascal : 
■ USCD 

• Compiler 

• Assembieur linker 

• Ediieur (Her 



LOGICIELS SUC DISQUETTES 
Ficniers d'adresses sur disquettes 
Aide la programmallon n ' 2 
Aide lo programmallon n° 3 
Dis queues elect rl cite 
Resistance Oes malerloux 
Mai hem all que 



415F 
206 F C 

206 f : - 
375 r 
375 F ; 
252 F : : 




NOUVEAUX CONTR0LEURS DE DISQUETTES 
enflchables dans la bolle periph^rique comptable avec 
les anclennes unites de disquettes Texas alnsl qu'avec 
lo nouvelle umie double lace double densiie 

3800 F D 



UNITE DE DISQUETTE INTEGRE i 




pfiripherique Slim Line 0/2 hauteur) double lace double 


den site c a pa cite 360 K avec le no uvea u canlrdleur 


de dlsauetles Cetle iaille permet i 




flans le companimenl disque de 1: 


bolle perl pherl que. 


L'ensemble 


2500 FD 



B0NDECOMMANDE 
TARIFS FEVRIER 1985 


... 




Coflf Posl 












Produiis d 


iponiDles dans In limile He nos nocXs en magas.n 


PomclDail 


n aux dois de aon el d'eipeditlon en recommond» 
ui les logiciels + 30 F. Se rensetgner pour its colls 


L* PEGLE 
85/67. bd 
til 325 e 


CALCUL 
8SB-TBIBI EIRAV 220064 H 1303 RAC 




mfMfl d» piodmii disogditrics mus 8 Jours. 




Demand*. 10 IM«d« modules d, JPU . 



